* %GOTO PDIBSL; /* BILINGUAL MAPPING 00100002 MACRO 00150002 IEFZB435 00200002 * 00250002 * PASSED DATA SET INFORMATION 00300002 * 00350002 * OS/VS2 REL.2 DATE: SEPTEMBER 12, 1972 VERSION: 001 00400002 * 00500002 PDI DSECT 00600002 * 01250002 * PDI BLOCK(PDIB) - ID=21(HEX) 01300002 * 01350002 PDIBLOCK DS 0F 01400002 PDINPDIP DS CL3 DA ADDR OF NEXT PDQ DIRECTORY BLOCK,0 IF LAST 01410002 PDICTR DS 1X NUMBER OF PDI ENTRIES IN THIS PDI BLOCK 01440002 PDIBNXTP DS 1F SVAB CHAIN POINTER 01442002 PDIENTRY DS CL168 FROM 1 TO 3 PDI ENTRIES 01444002 PDIE DSECT 01452002 PDIDSNAM DS CL44 DATA SET NAME 01460002 PDIUNWA DS CL1 STATUS BYTE 01600002 PDIISTAT EQU 128 INITIAL STATUS IS OLD 01650002 PDICSTAT EQU 64 CURRENT STATUS IS OLD 01700002 PDIPASIN EQU 32 PASS SATISFIED 01750002 PDIJOBLB EQU 2 DD THAT PASSED IS JOBLIB 01760002 DS CL1 RESERVED 01800002 PDISTPNO DS CL2 CURRENT STEP NUMBER 01850002 PDISIOTA DS CL3 PASS/RECEIVE SIOT SVA,DEPENDING ON PASS IND. 01900002 DS CL1 RESERVED 01910002 PDISIOTP DS CL4 PASS SIOT SVAB, DURING UNALLOCATION. 01920002 PDIBLKID EQU 33 SWA BLOCK ID FOR PDIB 01960002 PDIBLKLN EQU 176 PDIB LENGTH IN SWA 02010002 MEND */ 02550002 *%PDIBSL:; 02600002 */* PASSED DATA SET INFORMATION. */ 02610002 */* */ 02620002 */* OS/VS2 REL.2 DATE: SEPTEMBER 12,1972 VERSION: 001 */ 02630002 */* */ 02640002 */* PDI BLOCK(PDIB) - ID = 21(HEX) */ 02642002 */* */ 02644002 * DCL 1 PDIBLOCK BASED(PDIBLPTR), /* PDI BLOCK (PDIB) */ 02650002 * 2 PDINPDIP FIXED(24) BDY(WORD), /* SVA CHAIN POINTER. */ 02700002 * 2 PDICTR FIXED(8), /* N0. OF PDIES IN THIS PDIB */ 02850002 * 2 PDIBNXTP PTR(31), /* SVAB CHAIN POINTER */ 02900002 * 2 PDIENTRY CHAR(168); /* FROM 1 TO 3 PDI ENTRIES */ 02950002 */* */ 03000002 * DCL 1 PDIE(3) BASED(ADDR(PDIENTRY)), /* PDI ENTRY */ 03050002 * 2 PDIDSNAM CHAR(44), /* PASSED DATA SET NAME. */ 03100002 * 2 PDIUNWA CHAR(1), /* STATUS BYTE */ 03150002 * 3 PDIISTAT BIT(1), /* INITIAL STATUS IF ON=OLD */ 03200002 * 3 PDICSTAT BIT(1), /* CURRENT STATUS IF ON=OLD */ 03250002 * 3 PDIPASIN BIT(1), /* PASS INDICATOR 1=PASS,0=REC*/ 03300002 * 3 * BIT(3), /* RESERVED */ 03350002 * 3 PDIJOBLB BIT(1), /* DD THAT PASSED IS JOBLIB. */ 03400002 * 3 * BIT(1), /* RESERVED */ 03450002 * 2 * CHAR(1), /* RESERVED */ 03500002 * 2 PDISTPNO FIXED(15), /* STEP NUMBER THAT PASSED. */ 03510002 * 2 PDISIOTA FIXED(24) BDY(WORD), /* PASS/RECEIVE SIOT SVA, 03550002 * DEPENDING ON PASS IND. */ 03552002 * 2 * CHAR(1), /* RESERVED */ 03560002 * 2 PDISIOTP PTR(31); /* SVAB OF PASS SIOT, 03610002 * DURING UNALLOCATION. */ 03620002 * DCL PDIBLKID FIXED(8) CONSTANT(33); /* SWA PDIB IDENTIFIER. */ 03650002 * DCL PDIBLKLN FIXED(31) CONSTANT(176);/* PDIB LENGTH IN SWA. */ 03700002 * /* END OF PDI */ 04500002