Editer les zones d'un fichier base de données As400






Commande de lancement et de saisie des paramètres (QCMDSRC)
        **************  Début des données  ************************************************
0001.00                                                                                    
0002.00              CMD        PROMPT('Edition zones de fichier ')                        
0003.00                                                                                    
0006.00                                                                                    
0007.00                                                                                    
0008.00              PARM       KWD(FIC) TYPE(*CHAR) LEN(10) PROMPT('Fichier +             
0009.00                           à éditer      ')                                         
0010.00                                                                                    
0011.00              PARM       KWD(BIB) TYPE(*CHAR) LEN(10) +                             
0012.00                           PROMPT('Bibliothèque du fichier ')                       
0013.00                                                                                    
0020.00                                                                                    
        ***************  Fin des données  *************************************************


CL de préparation du traitement - DSPFFD dans IMPFFD de QTEMP (QCLSRC)

        **************  Début des données  *******************************
0001.00              PGM        PARM(&FIC &BIB)                           
0002.00                                                                   
0003.00                                                                   
0004.00              DCL        VAR(&FIC) TYPE(*CHAR) LEN(10)             
0005.00              DCL        VAR(&BIB) TYPE(*CHAR) LEN(10)             
0006.00                                                                   
0007.00                                                                   
0008.00              DSPFFD     FILE(&BIB/&FIC) OUTPUT(*OUTFILE) +        
0009.00                           OUTFILE(QTEMP/IMPFFD)                   
0010.00              MONMSG     MSGID(CPF0000) EXEC(DO)                   
0011.00              GOTO       CMDLBL(FIN)                               
0012.00              ENDDO                                                
0013.00              CALL       PGM(PRTZONE)                              
0014.00                                                                   
0015.00                                                                   
0016.00  FIN:        ENDPGM                                               
        ***************  Fin des données  ********************************



Programme RPG 400 (PRTZONE) Edition de l'état

        **************  Début des données  *********************************
0001.00       *                                                             
0002.00       *                                                             
0003.00      H            D                                                 
0004.00      H**************************************************************
0005.00      H*                                                            *
0008.00      H*                                                            *
0009.00      H**************************************************************
0012.00      FIMPFFD  IP  E                    DISK                         
0014.00      FQSYSPRT O   F     132     OF     PRINTER                      
0015.00      E**                                                            
0018.00      I*                                                             
0123.00      C*                                                             
0124.00      C  N99                EXCPTENT                                 
0125.00      C                     SETON                     99             
0126.00      C   OF                EXCPTENT                                 
0127.00      C                     EXCPTDET                                 
0128.00      C*                                                             
0129.00      C           *INZSR    BEGSR                                    
0130.00      C                     MOVE *ALL'='   LIGNE 100                 
0131.00      C                     ENDSR                                    
0132.00      C*                                                             
0200.00      O*                                                             
0201.00      OQSYSPRT E    2           ENT                                  
0202.00      O                                    9 'PRTZONE'                 
0203.00      O                         *DATE   +  3 '  /  /    '              
0204.00      O                                 +  5 'EDITION ZÔNE DU FICHIER' 
0205.00      O                         WHFILE  +  1                           
0206.00      O                                 +  5 'PAGE N° : '              
0207.00      O                         PAGE    +  1                           
0208.00      O        E 22             ENT                                    
0209.00      O                         LIGNE    100                           
0210.00      O        E 2              ENT                                    
0211.00      O                                   12 'FORMAT'                  
0212.00      O                                 +  3 'ZÔNE  '                  
0213.00      O                                 +  3 'LONGUEUR'                
0214.00      O                                 +  3 'N/OF/D'                  
0215.00      O                                 +  3 'DÉCIMALES'               
0216.00      O                                 +  4 'TEXTE    '               
0217.00      O        E 22             ENT                                    
0218.00      O                         LIGNE    100                           
0219.00      O        E 1              DET                                    
0220.00      O                         WHNAME    12                           
0221.00      O                         WHFLDI  +  3                           
0222.00      O                         WHFLDBZ +  3                           
0223.00      O                         WHFLDDZ +  3                           
0224.00      O                         WHFLDPZ +  7                           
0225.00      O                         WHFTXT  +  8                           
        ***************  Fin des données  ********************************