| 
FCHXOBJD CF E WORKSTN KINFDS INFODS F RANG KSFILE FMTSFL I 'LISTE DES OBJETS' C CTX I 'Liste en cours..' C MTX I 'Liste terminée ' C MTX2 IINFODS DS I B 378 3790L2 IRTVINF DS I B 1 40FIN I B 5 80TAILLE I B 9 120NBOBJ I B 13 160LGPOST IBINDS DS I B 1 40DEBUT I B 5 80LG I B 9 120LGRCV I I 91 B 13 160LGDS IQUALDS DS I 1 10 SPCNAM I 11 20 SPCLIB I 1 20 USRSPC I 21 30 OBJNAM I 31 40 BIBLI I 21 40 OBJQ I 41 50 OBJTYP ILIST DS I 1 10 OBJN I 11 20 OBJL I 21 30 OBJT I 42 91 TEXTE IERRDS DS I B 1 40LGDS I B 5 80LGERR I 9 15 MSGID I 16 16 RESERV IMSGDS DS I 1 10 MSGF I 11 20 MSGL I 1 20 MSGFL I B 21 240LENTXT I B 25 280STACK I B 29 320KEY C *ENTRY PLIST C OBJNAM PARM OBJ 10 |
|
C BIBLI PARM BIB 10 C OBJTYP PARM TYP 10 C PARM RTNNAM 10 * C OBJNAM IFEQ *BLANK C MOVEL'*ALL' OBJNAM C ENDIF C BIBLI IFEQ *BLANK C OBJTYP IFEQ '*LIB' C MOVEL'QSYS' BIBLI C ELSE C MOVEL'*USRLIBL'BIBLI C ENDIF C ENDIF C OBJTYP IFEQ *BLANK C MOVEL'*ALL' OBJTYP C ENDIF * C WRITECDE C Z-ADD16 LGDS C MOVEL'QCPFMSG' MSGF C MOVEL'*LIBL' MSGL C MOVELMTX MSGTXT C CALL 'QMHSNDPM' C PARM 'CPF9898' ID 7 C PARM MSGFL C PARM MSGTXT 50 C PARM 50 LENTXT C PARM '*STATUS' MSGTYP 10 C PARM '*EXT' PGMQ 10 C PARM 0 STACK C PARM KEY C PARM ERRDS C EXSR CHGT * C NBOBJ IFGT 0 C MOVELMTX2 MSGTXT C CALL 'QMHSNDPM' C PARM 'CPF9898' ID 7 C PARM MSGFL C PARM MSGTXT 50 C PARM 50 LENTXT C PARM '*STATUS' MSGTYP 10 C PARM '*EXT' PGMQ 10 |
|
C PARM 0 STACK C PARM KEY C PARM ERRDS C *IN03 DOUEQ*ON C *IN41 OREQ *OFF C EXFMTFMTCTL C *IN03 IFEQ *OFF C Z-ADDL2 LIGNE C EXSR MAJ C ENDIF C ENDDO * C OPT IFEQ '1' C MOVE OBJN RTNNAM C ELSE C MOVE *BLANK RTNNAM C ENDIF C* C ENDIF C MOVE *ON *INLR C EXSR *PSSR * C CHGT BEGSR C MOVEL'CHXOBJ' SPCNAM C MOVEL'QTEMP' SPCLIB C MOVEL'LISTFMT 'EXT 10 C Z-ADD1024 TAILLE C MOVE ' ' INT 10 C MOVEL'*USE' AUT 10 C MOVELCTX TXT 50 * dlt du user space si présent dans QTEMP C EXSR *PSSR * CREATION USER SPACE PAR API QUSCRTUS C CALL 'QUSCRTUS' C PARM USRSPC C PARM EXT C PARM TAILLE C PARM INT C PARM AUT C PARM TXT * REMPLISSAGE DU USER SPACE VIA API C CALL 'QUSLOBJ' 99 C PARM USRSPC C PARM 'OBJL0200'FMT 8 |
|
C PARM OBJQ C PARM OBJTYP C *IN99 IFEQ *ON C Z-ADD0 NBOBJ C ELSE * EXTRACTION DES INFOS D'ENTETE C Z-ADD125 DEBUT C Z-ADD16 LG C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LG C PARM RTVINF C ENDIF C NBOBJ IFGT 0 C Z-ADD0 RANG 40 C MOVEA'00' *IN,30 C WRITEFMTCTL C MOVE *ON *IN30 C Z-ADD1 LIGNE C Z-ADDLGPOST LG C FIN ADD 1 DEBUT 1ER POSITION * * BOUCLE SUR NOMBRE DE MEMBRES EXTRAITS * C DO NBOBJ * EXTRACTION D'UN POSTE PAR API QUSRTVUS (-> DONNE LE NOM ) C CALL 'QUSRTVUS' C PARM USRSPC C PARM DEBUT C PARM LGDS C PARM LIST C MOVE *ON *IN31 C ADD 1 RANG C WRITEFMTSFL * POSITIONNEMENT SUR PROCHAIN POSTE C ADD LG DEBUT C ENDDO * C ENDIF C ENDSR * * C MAJ BEGSR |
|
C *IN41 DOUEQ*ON C OPT OREQ '1' * C READCFMTSFL 41 C* C ENDDO C ENDSR * C *PSSR BEGSR * DLT DU USER SPACE (Y COMPRIS EN CAS DE PLANTUS) API QUSDLTUS C Z-ADD16 LGDS C CALL 'QUSDLTUS' 99 C PARM USRSPC C PARM ERRDS C ENDSR |
