| 
FPDMOPTWDCF E WORKSTN KINFDS INFODS F RANG KSFILE FMTE FPDMMODELIF F 252 DISK IPDMMODELNS I 1 2 OPT I 3 251 CMDF I 252 252 RESTE IINFODS DS I B 378 3790LIG ICMDF DS I 1 42 CMD I 43 249 CMDH I 1 60 CD1 I 61 123 CD2 I 124 186 CD3 I 187 249 CD4 ICDERT DS I 1 1 INVITE I 2 250 WCDE ICDEXEC DS I 1 40 CDEXE1 I 41 88 CDEXE2 C *ENTRY PLIST C PARM CDERT 250 C PARM CODRT 1 * C MOVE ' ' CODRT C EXSR CHGT C RANG IFLE 0 C MOVE 'C' CODRT C ELSE C MOVE *BLANK CDERT C MOVE ' ' ARRET 1 C MOVE *ON *IN,30 C *IN03 DOUEQ*ON C ARRET OREQ 'O' C WRITEBORDER C LIGNE IFLE 0 C Z-ADD1 LIGNE C END C EXFMTFMTC C *IN03 IFEQ *OFF C Z-ADDLIG LIGNE C SELEC |
|
C *IN05 WHEQ *ON C MOVE *ON *IN,22 C Z-ADD1 LIGNE C *IN21 WHEQ *ON C CALL 'QUSCMDLN' C CDEXEC WHNE *BLANK C MOVE 'O' ARRET C MOVELCDEXEC WCDE C OTHER C EXSR LECTU C ENDSL C ENDIF C ENDDO C ENDIF C ARRET IFEQ 'O' C *IN04 ANDEQ*ON C MOVE '?' INVITE C ENDIF C MOVE *ON *INLR * SOUS PGM C CHGT BEGSR C MOVE *OFF *IN,30 C WRITEFMTC C READ PDMMODEL 90 C *IN90 DOWEQ*OFF C OPT IFNE ' P' C ADD 1 RANG 40 C WRITEFMTE C ENDIF C READ PDMMODEL 90 C ENDDO C ENDSR * SOUS PGM C LECTU BEGSR C READCFMTE 90 C *IN90 DOWEQ*OFF C ARRET ANDNE'O' C SELEC C CHOIX WHEQ '1' C MOVE 'O' ARRET C MOVELCMDF WCDE C CHOIX WHEQ '5' C EXFMTINFOS C ENDSL |
|
C ARRET IFNE 'O' C UPDATFMTE C Z-ADDRANG LIGNE C READCFMTE 90 C ENDIF C ENDDO C ENDSR |
