| 
FWRKTOOLDCF E WORKSTN KINFDS INFODS
F RG1 KSFILE SFL01
F TITRE KIGNORE
F SELECT KIGNORE
F SFL02 KIGNORE
F CTL02 KIGNORE
F VID02 KIGNORE
F SFL03 KIGNORE
F CTL03 KIGNORE
IINFODS DS
I B 378 3790LIGNE
IRTVINF DS
I B 1 40FIN
I B 5 80TAILLE
I 1 8 RTVH
I B 9 120NBMBR
I B 13 160LGPOST
IBINDS DS
I B 1 40DEBUT
I B 5 80LG
IQUALDS DS
I 1 10 SPCNAM
I 11 20 SPCLIB
I 1 20 USRSPC
IHEADER DS
I 1 10 FICNAM
I 11 20 FICLIB
I 21 30 FILATR
I 31 80 FICTXT
I B 81 840MBRNAH
I 85 85 SRCF
ILIST DS
I 1 10 TOOL
I 11 20 TYPE
I 21 33 CRTDAT
I 22 27 DATCR
I 34 46 LSTCHG
I 35 40 DATCH
I 47 96 TXT
I 'STRSEU SRCFILE(QUSRT-C SEU1
I 'OOL/QATTINFO) SRCMBR-
I '('
I ') OPTION(5)' C SEU2
*
|
|
C EXSR CHGT * C WRITECDE C *IN30 IFEQ *ON C *IN12 DOUEQ*ON C EXFMTCTL01 C *IN12 IFEQ *OFF C Z-ADDLIGNE L1 C EXSR LECTUR C ENDIF C ENDDO C ELSE C WRITECTL01 C EXFMTVID01 C ENDIF C* C RETRN * * C CHGT BEGSR C MOVEL'SPCTOOL' SPCNAM C MOVEL'QTEMP' SPCLIB * * EXTRACTION SELECTION DEMANDEE * C Z-ADD1 DEBUT C Z-ADD10 LG C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM SEL * * EXTRACTION POSITION DE L'ENTETE * C Z-ADD117 DEBUT C Z-ADD8 LG C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM RTVH * * EXTRACTION DES INFOS D'ENTETE (RETROUVE NOM DU FICHIER) |
|
* C FIN ADD 1 DEBUT C Z-ADDTAILLE LG C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM HEADER * * EXTRACTION POSITION DE LA LISTE * C Z-ADD125 DEBUT C Z-ADD16 LG C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM RTVINF C Z-ADD1 L1 C Z-ADD0 RG1 40 C MOVE *OFF *IN30 C MOVE *OFF *IN31 C WRITECTL01 C MOVE *ON *IN31 C NBMBR IFGT 0 C MOVE *ON *IN30 C Z-ADDLGPOST LG C FIN ADD 1 DEBUT 1ER POSITION * * BOUCLE SUR NOMBRE DE MEMBRES EXTRAITS * C DO NBMBR * EXTRACTION D'UN POSTE PAR API QUSRTVUS (-> DONNE LE NOM ) C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM LIST * ECRITURE DU POSTE DANS SOUS FICHIER C ADD 1 RG1 C WRITESFL01 * POSITIONNEMENT SUR PROCHAIN POSTE C ADD LG DEBUT C ENDDO |
|
* C ENDIF C ENDSR * C LECTUR BEGSR C READCSFL01 90 C *IN90 DOWEQ*OFF C RG1 IFGT L1 C Z-ADDRG1 L1 C END C OPT IFEQ '5' C CALL 'WRKTOOL2' C PARM TOOL C ENDIF C OPT IFEQ '8' C SEU1 CAT TOOL:0 CMD 255 P C CMD CAT SEU2:0 CMD C CALL 'QCMDEXC' 90 C PARM CMD C PARM 255 CMDLG 155 C ENDIF C MOVE ' ' OPT C UPDATSFL01 C READCSFL01 90 C ENDDO C ENDSR |
