| 
FWRKTOOLDCF E WORKSTN KINFDS INFODS
F RG2 KSFILE SFL02
F RG3 KSFILE SFL03
F TITRE KIGNORE
F SELECT KIGNORE
F CTL01 KIGNORE
F SFL01 KIGNORE
F VID01 KIGNORE
IINFODS DS
I B 378 3790LIGNE
ITOOLDS DS 76
I 1 10 OBJ
I 1 12 OBJ12
I 15 22 TYPE
I 29 39 ATR11
I 41 55 MBR15
I 56 65 FICSRC
I ' (Pas d-C CT1
I 'e texte explicatif)'
I 'STRSEU SRCFILE(QUSRT-C SEU1
I 'OOL/'
I ') SRCMBR(' C SEU2
I ') OPTION(' C SEU3
I '?CPYSRCF QUSRTOOL/' C CPY1
I 'FROMMBR(' C CPY2
I 'TAATOOL' C OBJLIB
I 'QUSRTOOL' C QUSRT
*
C *ENTRY PLIST
C PARM TOOL
C MOVE *BLANK SAVDQ 76
*
C Z-ADD0 RG3 40
C MOVE *OFF *IN32
C WRITECTL03
C MOVE *ON *IN32
C EXSR LECDQ1
C TXTSF IFEQ *BLANK
C ADD 1 RG3
C WRITESFL03
C MOVELCT1 TXTSF
C ADD 1 RG3
C WRITESFL03
C ELSE
|
|
C TXTSF DOUEQ*BLANK C TXTSF OREQ SAVDQ C ADD 1 RG3 C WRITESFL03 C MOVE TXTSF SAVDQ C EXSR LECDQ1 C ENDDO C ENDIF * C WRITECTL03 C Z-ADD1 L2 C Z-ADD0 RG2 40 C MOVE *OFF *IN30 C MOVE *OFF *IN31 C WRITECTL02 C MOVE *ON *IN31 C EXSR LECDQ2 C TOOLDS IFEQ *BLANK C WRITEVID02 C ELSE C MOVE *ON *IN30 C TOOLDS DOUEQ*BLANK C TOOLDS OREQ SAVDQ * CONSTITUTION DU NOM DU MEMBRE SOURCE CADRÉ À GAUCHE * (POSITION EXACTE SUR LA LIGNE CHANGE D'UNE VERSION À L'AUTRE) C Z-ADD0 D 20 C ' ' CHECKMBR15 D C Z-ADD0 F 20 C ' ' CHEKRMBR15 F C SUB D F C ADD 1 F C F SUBSTMBR15:D MBRSRC P * IDEM POUR L'ATTRIBUT C Z-ADD0 D 20 C ' ' CHECKATR11 D C Z-ADD0 F 20 C ' ' CHEKRATR11 F C SUB D F C ADD 1 F C F IFGT 6 C Z-ADD6 F C ENDIF C D IFEQ 0 C F OREQ 0 |
|
C MOVE *BLANK ATR C ELSE C F SUBSTATR11:D ATR P C ENDIF C ADD 1 RG2 C WRITESFL02 C MOVE TOOLDS SAVDQ C EXSR LECDQ2 C ENDDO C ENDIF C *IN12 DOUEQ*ON C EXFMTCTL02 C LIGNE IFGT 0 C LIGNE ANDLERG2 C Z-ADDLIGNE L2 C ENDIF C *IN21 IFEQ *ON C CALL 'QUSCMDLN' C ENDIF C *IN14 IFEQ *ON C EXSR INFOSR C ENDIF C *IN12 IFEQ *OFF C *IN30 ANDEQ*ON C EXSR OPTSR C ENDIF C ENDDO * C MOVE *ON *INLR C RETRN * C LECDQ1 BEGSR C CALL 'QRCVDTAQ' C PARM 'TOOLDQ' DTAQ 10 C PARM 'QTEMP' LIB 10 C PARM 76 LEN 50 C PARM TXTSF C PARM 0 WAIT 50 C PARM 'EQ' ARG 2 C PARM 3 KEYLEN 30 C PARM 'TXT' KEY 3 C PARM 0 IDLEN 30 C PARM ID 1 C ENDSR |
|
* C LECDQ2 BEGSR C CALL 'QRCVDTAQ' C PARM 'TOOLDQ' DTAQ 10 C PARM 'QTEMP' LIB 10 C PARM 76 LEN 50 C PARM TOOLDS C PARM 0 WAIT 50 C PARM 'EQ' ARG 2 C PARM 3 KEYLEN 30 C PARM 'SRC' KEY 3 C PARM 0 IDLEN 30 C PARM ID 1 C ENDSR * C INFOSR BEGSR C SEU1 CAT 'QATTINFO'CMD 255 P C CAT SEU2:0 CMD C CAT TOOL:0 CMD C CAT SEU3:0 CMD C CAT '5)':0 CMD C CALL 'QCMDEXC' 90 C PARM CMD C PARM 255 CMDLG 155 C ENDSR * TRAITEMENT DES OPTIONS 2,3,5,6 ET 14 C OPTSR BEGSR C READCSFL02 91 C *IN91 DOWEQ*OFF C MOVE *BLANK CMD C RG2 IFGT L2 C Z-ADDRG2 L2 C ENDIF * 2,5,6 = SEU C OPT IFNE ' ' C OPT IFEQ '2 ' C OPT OREQ ' 2' C OPT OREQ '5 ' C OPT OREQ ' 5' C OPT OREQ '6 ' C OPT OREQ ' 6' C SEU1 CAT FICSRC CMD 255 P C CAT SEU2:0 CMD C CAT MBRSRC:0 CMD |
|
C CAT SEU3:0 CMD C CAT OPT:0 CMD C CAT ')':0 CMD C ENDIF * 3 = COPIE (CPYSRCF) C OPT IFEQ '3 ' C OPT OREQ ' 3' C CPY1 CAT FICSRC:0 CMD 255 P C CAT CPY2:1 CMD C CAT MBRSRC:0 CMD C CAT ')':0 CMD C ENDIF * 14 = DEMANDE DE COMPIL C OPT IFEQ '14' C SELEC * COMMANDE C TYPE WHEQ '*CMD' C MOVEL'CRTCMD' COMPIL 10 P * FICHIER C TYPE WHEQ '*FILE' C 'CRT' CAT ATR:0 COMPIL P * PROGRAMME C OTHER C ATR IFEQ 'CLP' C MOVEL'CRTCLPGM'COMPIL P C ELSE C 'CRT' CAT ATR:0 COMPIL P C 'SQL' SCAN ATR 96 C *IN96 IFEQ *OFF C CAT 'PGM':0 COMPIL C ENDIF C ENDIF C ENDSL C '?' CAT COMPIL:1 CMD P C CAT OBJLIB:1 CMD C CAT '/':0 CMD C CAT MBRSRC:0 CMD C CAT QUSRT:1 CMD C CAT '/':0 CMD C CAT FICSRC:0 CMD C CAT MBRSRC:1 CMD C ENDIF C CMD IFNE *BLANK C CALL 'QCMDEXC' 90 |
|
C PARM CMD C PARM 255 CMDLG 155 C MOVE ' ' OPT C ENDIF C UPDATSFL02 C ENDIF C READCSFL02 91 C ENDDO C ENDSR |
