| 
***************************************************************** * MODIFIÉ EN V5 AFIN DE GÉRER 64 POOLS MÉMOIRE (TABLEAU TP) * ***************************************************************** FWPOOLTIDCF E WORKSTN E TP 64104 E MTYP 3 10 IMSGTB DS I 1 30 MTYP IMSGDS DS I B 1 40STACK I B 5 80NBTYP IMSGCOD DS I I 16 B 1 40LGCOD I B 5 80LGUTIL I 9 15 MSGID I 16 16 MSGRSV IPARAM DS I 1 16 CINFO I B 17 180NBRP I 19 32 RESER1 I 336688 TP IUNPOOL DS I 1 1 XTYP I 2 2 XHDL I 3 16 FIL01 I 17 18 NDBF I 19 24 FIL02 I 25 40 FIL03 I 41 42 XDB1F I 43 43 XDB1E I 44 44 XDB1T I 45 48 FIL04 I 49 50 XDB2F I 51 51 XDB2E I 52 52 XDB2T I 53 56 FIL05 I 57 58 XDB3F I 59 59 XDB3E I 60 60 XDB3T I 61 64 FIL06 I 65 66 XDB4F I 67 67 XDB4E I 68 68 XDB4T I 69 72 FIL07 |
|
I 73 104 RESER2 IAPIDS DS I I 1 B 1 40PID I 5 34 RQS I 5 50TUNTYP I 6 60PAGHDL I B 7 100NDBFDS I 11 110DB1EXC I 12 120DB1TFR I B 13 160DB1FDS I 17 170DB2EXC I 18 180DB2TFR I B 19 220DB2FDS I 23 230DB3EXC I 24 240DB3TFR I B 25 280DB3FDS I 29 290DB4EXC I 30 300DB4TFR I B 31 340DB4FDS I I 30 B 35 380LGRQS I I 'TUNI0100' 39 46 APIFMT I I 0 B 47 500ERRCOD C WRITETITRE C MOVE *ON *IN05 C *IN03 DOUEQ*ON C *IN05 CASEQ*ON REFREH C *IN06 CASEQ*ON MODIF C *IN80 CASEQ*ON ROLLUP C *IN81 CASEQ*ON ROLLDW C ENDCS C EXFMTFMT C ENDDO C MOVE *ON *INLR C EXSR SPMSG C RETRN * C ROLLUP BEGSR C PID IFLT NBRP C ADD 1 PID C MOVE TP,PID UNPOOL C EXSR MEP C ENDIF C ENDSR C ROLLDW BEGSR |
|
C PID IFGT 1 C SUB 1 PID C MOVE TP,PID UNPOOL C EXSR MEP C ENDIF C ENDSR C REFREH BEGSR C CALL 'MATRMD14' C PARM PARAM C MOVE TP,PID UNPOOL C EXSR MEP C ENDSR C MODIF BEGSR C PID IFGT 1 C Z-ADDNDBFAC NDBFDS C Z-ADDDB1FAC DB1FDS C Z-ADDDB2FAC DB2FDS C Z-ADDDB3FAC DB3FDS C Z-ADDDB4FAC DB4FDS C CALL 'QWCCHGTN' C PARM PID C PARM RQS C PARM LGRQS C PARM APIFMT C PARM ERRCOD C ENDIF C EXSR REFREH C ENDSR C MEP BEGSR C Z-ADDPID POOLID C SELEC C XTYP WHEQ X'00' C Z-ADD0 TUNTYP C XTYP WHEQ X'10' C Z-ADD1 TUNTYP C XTYP WHEQ X'20' C Z-ADD2 TUNTYP C XTYP WHEQ X'30' C Z-ADD3 TUNTYP C ENDSL C SELEC C XHDL WHEQ X'00' C Z-ADD0 PAGHDL C XHDL WHEQ X'10' |
|
C Z-ADD1 PAGHDL C XHDL WHEQ X'20' C Z-ADD2 PAGHDL C ENDSL C SELEC C NDBF WHEQ X'0000' C Z-ADD0 NDBFAC C NDBF WHEQ X'0008' C Z-ADD4 NDBFAC C NDBF WHEQ X'0010' C Z-ADD8 NDBFAC C NDBF WHEQ X'0020' C Z-ADD16 NDBFAC C NDBF WHEQ X'0040' C Z-ADD32 NDBFAC C ENDSL C SELEC C XDB1F WHEQ X'0000' C Z-ADD0 DB1FAC C XDB1F WHEQ X'0008' C Z-ADD4 DB1FAC C XDB1F WHEQ X'0010' C Z-ADD8 DB1FAC C XDB1F WHEQ X'0020' C Z-ADD16 DB1FAC C XDB1F WHEQ X'0040' C Z-ADD32 DB1FAC C XDB1F WHEQ X'0080' C Z-ADD64 DB1FAC C XDB1F WHEQ X'0100' C Z-ADD128 DB1FAC C ENDSL C SELEC C XDB1E WHEQ X'00' C Z-ADD0 DB1EXC C XDB1E WHEQ X'C5' C Z-ADD1 DB1EXC C XDB1E WHEQ X'D5' C Z-ADD2 DB1EXC C XDB1E WHEQ X'D9' C Z-ADD3 DB1EXC C ENDSL C SELEC C XDB1T WHEQ X'00' |
|
C Z-ADD0 DB1TFR C XDB1T WHEQ X'D7' C Z-ADD1 DB1TFR C XDB1T WHEQ X'E6' C Z-ADD2 DB1TFR C XDB1T WHEQ X'D9' C Z-ADD3 DB1TFR C XDB1T WHEQ X'D5' C Z-ADD4 DB1TFR C ENDSL C SELEC C XDB2F WHEQ X'0000' C Z-ADD0 DB2FAC C XDB2F WHEQ X'0008' C Z-ADD4 DB2FAC C XDB2F WHEQ X'0010' C Z-ADD8 DB2FAC C XDB2F WHEQ X'0020' C Z-ADD16 DB2FAC C XDB2F WHEQ X'0040' C Z-ADD32 DB2FAC C XDB2F WHEQ X'0080' C Z-ADD64 DB2FAC C XDB2F WHEQ X'0100' C Z-ADD128 DB2FAC C ENDSL C SELEC C XDB2E WHEQ X'00' C Z-ADD0 DB2EXC C XDB2E WHEQ X'C5' C Z-ADD1 DB2EXC C XDB2E WHEQ X'D5' C Z-ADD2 DB2EXC C XDB2E WHEQ X'D9' C Z-ADD3 DB2EXC C ENDSL C SELEC C XDB2T WHEQ X'00' C Z-ADD0 DB2TFR C XDB2T WHEQ X'D7' C Z-ADD1 DB2TFR C XDB2T WHEQ X'E6' C Z-ADD2 DB2TFR C XDB2T WHEQ X'D9' |
|
C Z-ADD3 DB2TFR C XDB2T WHEQ X'D5' C Z-ADD4 DB2TFR C ENDSL C SELEC C XDB3F WHEQ X'0000' C Z-ADD0 DB3FAC C XDB3F WHEQ X'0008' C Z-ADD4 DB3FAC C XDB3F WHEQ X'0010' C Z-ADD8 DB3FAC C XDB3F WHEQ X'0020' C Z-ADD16 DB3FAC C XDB3F WHEQ X'0040' C Z-ADD32 DB3FAC C XDB3F WHEQ X'0080' C Z-ADD64 DB3FAC C XDB3F WHEQ X'0100' C Z-ADD128 DB3FAC C ENDSL C SELEC C XDB3E WHEQ X'00' C Z-ADD0 DB3EXC C XDB3E WHEQ X'C5' C Z-ADD1 DB3EXC C XDB3E WHEQ X'D5' C Z-ADD2 DB3EXC C XDB3E WHEQ X'D9' C Z-ADD3 DB3EXC C ENDSL C SELEC C XDB3T WHEQ X'00' C Z-ADD0 DB3TFR C XDB3T WHEQ X'D7' C Z-ADD1 DB3TFR C XDB3T WHEQ X'E6' C Z-ADD2 DB3TFR C XDB3T WHEQ X'D9' C Z-ADD3 DB3TFR C XDB3T WHEQ X'D5' C Z-ADD4 DB3TFR C ENDSL C SELEC C XDB4F WHEQ X'0000' |
|
C Z-ADD0 DB4FAC C XDB4F WHEQ X'0008' C Z-ADD4 DB4FAC C XDB4F WHEQ X'0010' C Z-ADD8 DB4FAC C XDB4F WHEQ X'0020' C Z-ADD16 DB4FAC C XDB4F WHEQ X'0040' C Z-ADD32 DB4FAC C XDB4F WHEQ X'0080' C Z-ADD64 DB4FAC C XDB4F WHEQ X'0100' C Z-ADD128 DB4FAC C ENDSL C SELEC C XDB4E WHEQ X'00' C Z-ADD0 DB4EXC C XDB4E WHEQ X'C5' C Z-ADD1 DB4EXC C XDB4E WHEQ X'D5' C Z-ADD2 DB4EXC C XDB4E WHEQ X'D9' C Z-ADD3 DB4EXC C ENDSL C SELEC C XDB4T WHEQ X'00' C Z-ADD0 DB4TFR C XDB4T WHEQ X'D7' C Z-ADD1 DB4TFR C XDB4T WHEQ X'E6' C Z-ADD2 DB4TFR C XDB4T WHEQ X'D9' C Z-ADD3 DB4TFR C XDB4T WHEQ X'D5' C Z-ADD4 DB4TFR C ENDSL C ENDSR * * EN CAS D'ERREUR ==> RENVOI DES MESSAGES ET CANCEL DU PGM * C SPMSG BEGSR C MOVEL'*COMP' MTYP,1 C MOVEL'*DIAG' MTYP,2 C MOVEL'*ESCAPE' MTYP,3 |
|
C CALL 'QMHMOVPM' C PARM MSGCLE 4 C PARM MSGTB C PARM 3 NBTYP C PARM '*' PGMQ 10 C PARM 1 STACK C PARM MSGCOD C ENDSR C *PSSR BEGSR C EXSR SPMSG C ENDSR'*CANCL' |
