* 00100002 * %GOTO PDSL1; /* 00150002 MACRO 00200001 IHAPDS &PDSBLDL=YES,&DSECT=YES */ 00300002 *%PDSL1 : ; 00350002 * 00400002 */* **************************************************************** */ 00500002 */* PARTITIONED DATA SET (PDS) DIRECTORY ENTRY */ 00700002 */* */ 00750002 */* OS/VS2 RELEASE 3, OS/VS1 RELEASE 4, 11/19/74, LEVEL=1 */ 00760003 */* */ 03700002 */* THE PDS DIRECTORY ENTRY MAY HAVE ANY OR ALL OF THE */ 03710002 */* FOLLOWING FIVE SECTIONS IN THIS ORDER -- */ 03720002 */* 1. BASIC (MAY OR MAY NOT CONTAIN 2 BLDL BYTES) */ 03730002 */* 2. SCATTER LOAD - OPTIONAL */ 03740002 */* 3. ALIAS - OPTIONAL */ 03742002 */* 4. SSI - OPTIONAL */ 03744002 */* 5. APF - OPTIONAL */ 03794002 */* */ 03796002 */* METHOD OF ACCESS */ 03798002 */* BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS SPECIFIED. */ 03798402 */* USING ON PDS2 GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 03798802 */* THE MACRO EXPANSION WILL INCLUDE THE TWO BYTES */ 03799202 */* INSERTED BY BLDL UNLESS PDSBLDL=NO IS SPECIFIED. */ 03799602 */* PL/S - DCL (PDS2PTR,PDSPTRV) PTR */ 03799702 */* THE MACRO EXPANSION WILL INCLUDE THE TWO BYTES */ 03799802 */* INSERTED BY BLDL UNLESS %PDSBLDL='NO' IS SPECIFIED */ 03799902 */* BEFORE INCLUDE FOR MACRO. */ 03833202 */* */ 03843202 */* THE FOLLOWING 4 PL/S STATEMENTS SHOW HOW THE */ 03853202 */* STARTING ADDRESS OF ANY OF THE FOUR OPTIONAL */ 03863202 */* SECTIONS OF USER DATA MAY BE OBTAINED. */ 03865202 */* */ 03865602 */* (1) PDSPTRV=ADDR(PDSBCEND) */ 03866002 */* (2) IF PDS2SCTR='1'B THEN PDSPTRV=PDSPTRV + */ 03866402 */* LENGTH(PDSS01) */ 03866502 */* (3) IF PDS2ALIS='1'B THEN PDSPTRV=PDSPTRV + */ 03866602 */* LENGTH(PDSS02) */ 03877702 */* (4) IF PDS2SSI='1'B THEN PDSPTRV=PDSPTRV + */ 03887702 */* LENGTH(PDSS03) */ 03888102 */* */ 03888502 */* STATEMENT (1) GETS THE ADDRESS FOR THE START OF THE */ 03888602 */* OPTIONAL SECTIONS. TO GET THE STARTING ADDRESS OF */ 03888702 */* THE SCATTER LOAD SECTION, USE STATEMENT (1). FOR */ 03888802 */* THE ALIAS SECTION, USE STATEMENTS (1) AND (2). FOR */ 03892502 */* THE SSI SECTION, USE STATEMENTS (1), (2) AND (3) */ 03894502 */* AND ADD ONE TO ADDRESS IN PDSPTRV IF ADDRESS IS NOT */ 03894902 */* ON A HALF-WORD BOUNDARY. FOR THE APF SECTION, USE */ 03895302 */* ALL 4 STATEMENTS. */ 03895702 */* **************************************************************** */ 03897702 *%GOTO PDSL2; /* 03899702 IEZBITS , - SYMBOLIC BIT DEFINITIONS 03900001 SPACE 1 04000001 AIF ('&DSECT' EQ 'NO').NODSCT2 13400001 PDS2 DSECT , PDS2PTR 13500001 AGO .CONT2 13600001 .NODSCT2 ANOP 13700001 DS 0F - YM2464 13800002 PDS2 EQU * - PDS2PTR 13900001 .CONT2 ANOP 14000001 PDS2NAME DS CL8 - LOAD MODULE MEMBER NAME OR ALIAS 14400001 PDS2TTRP DS CL3 - TTR OF FIRST BLOCK OF NAMED MEMBER 14500001 AIF ('&PDSBLDL' EQ 'NO').PDSX2 14550001 PDS2CNCT DS FL1 - CONCATENATION NUMBER OF THE DATA SET 14600001 PDS2LIBF DS C - LIBRARY FLAG FIELD 14700001 PDS2LNRM EQU X'00' - NORMAL CASE 14800001 PDS2LLNK EQU X'01' - IF DCB OPERAND IN BLDL MACRO INTRUCTION 14900001 * WAS SPECIFIED AS ZERO, NAME WAS FOUND IN 15000001 * LINK LIBRARY 15100001 PDS2LJOB EQU X'02' - IF DCB OPERAND IN BLDL MACRO INTRUCTION 15200001 * WAS SPECIFIED AS ZERO, NAME WAS FOUND IN 15300001 * JOB LIBRARY 15400001 DEZBYTE EQU PDS2LIBF --- ALIAS 15450001 .PDSX2 ANOP 15460001 PDS2INDC DS B - INDICATOR BYTE 15500001 PDS2ALIS EQU BIT0 - NAME IN THE FIRST FIELD IS AN ALIAS 15600001 DEALIAS EQU BIT0 --- ALIAS FOR PDS2ALIS 15650001 PDS2NTTR EQU BIT1+BIT2 - NUMBER OF TTR'S IN THE USER DATA FIELD 15700001 PDS2LUSR EQU BIT3+BIT4+BIT5+BIT6+BIT7 - LENGTH OF USER DATA FIELD 15800001 * IN HALF WORDS 15900001 PDS2USRD DS 0C - START OF VARIABLE LENGTH USER DATA FIELD 16000001 PDS2TTRT DS CL3 - TTR OF FIRST BLOCK OF TEXT 16100001 PDS2ZERO DS C - ZERO 16200001 PDS2TTRN DS CL3 - TTR OF NOTE LIST OR SCATTER/TRANSLATION 16300001 * TABLE. USED FOR MODULES IN SCATTER LOAD 16400001 * FORMAT OR OVERLAY STRUCTURE ONLY. 16500001 PDS2NL DS FL1 - NUMBER OF ENTRIES IN NOTE LIST FOR 16600001 * MODULES IN OVERLAY STRUCTURE, 16700001 * OTHERWISE ZERO 16800001 PDS2ATR DS 0BL2 - TWO-BYTE MODULE ATTRIBUTE FIELD 16900001 PDS2ATR1 DS B - FIRST BYTE OF MODULE ATTRIBUTE FIELD 17000001 PDS2RENT EQU BIT0 - REENTERABLE 17100001 DEREEN EQU BIT0 --- ALIAS FOR PDS2RENT 17150001 PDS2REUS EQU BIT1 - REUSABLE 17200001 PDS2OVLY EQU BIT2 - IN OVERLAY STRUCTURE 17300001 DEOVLY EQU BIT2 --- ALIAS FOR PDS2OVLY 17350001 PDS2TEST EQU BIT3 - MODULE TO BE TESTED - TESTRAN 17400001 PDS2LOAD EQU BIT4 - ONLY LOADABLE 17500001 DELODY EQU BIT4 --- ALIAS FOR PDS2LOAD 17550001 PDS2SCTR EQU BIT5 - SCATTER FORMAT 17600001 DESCAT EQU BIT5 --- ALIAS FOR PDS2SCTR 17650001 PDS2EXEC EQU BIT6 - EXECUTABLE 17700001 DEXCUT EQU BIT6 --- ALIAS FOR PDS2EXEC 17750001 PDS21BLK EQU BIT7 - IF ZERO, MODULE CONTAINS MULTIPLE RECORDS 17800001 * WITH AT LEAST ONE BLOCK OF TEXT. --- 17900001 * IF ONE, MODULE CONTAINS NO RLD ITEMS AND 18000001 * ONLY ONE BLOCK OF TEXT. 18100001 PDS2ATR2 DS B - SECOND BYTE OF MODULE ATTRIBUTE FIELD 18200001 PDS2FLVL EQU BIT0 - IF ZERO, MODULE CAN BE PROCESSED BY ALL 18300001 * LEVELS OF LINKAGE EDITOR. --- 18400001 * IF ONE, MODULE CAN BE PROCESSED ONLY BY 18500001 * F LEVEL OF LINKAGE EDITOR. 18600001 PDS2ORG0 EQU BIT1 - LINKAGE EDITOR ASSIGNED ORIGIN OF FIRST 18700001 * BLOCK OF TEXT IS ZERO. 18800001 PDS2EP0 EQU BIT2 - ENTRY POINT ASSIGNED BY LINKAGE EDITOR 18900001 * IS ZERO 19000001 PDS2NRLD EQU BIT3 - MODULE CONTAINS NO RLD ITEMS 19100001 PDS2NREP EQU BIT4 - MODULE CANNOT BE REPROCESSED BY LINKAGE 19200001 * EDITOR 19300001 PDS2TSTN EQU BIT5 - MODULE CONTAINS TESTRAN SYMBOL CARDS 19400001 PDS2LEF EQU BIT6 - MODULE CREATED BY LINKAGE EDITOR F 19500001 PDS2REFR EQU BIT7 - REFRESHABLE MODULE 19600001 PDS2STOR DS FL3 - TOTAL CONTIGUOUS MAIN STORAGE REQUIREMENT 19700001 * OF MODULE 19800001 PDS2FTBL DS FL2 - LENGTH OF FIRST BLOCK OF TEXT 19900001 PDS2EPA DS AL3 - ENTRY POINT ADDRESS ASSOCIATED WITH 20000001 * MEMBER NAME OR WITH ALIAS NAME IF ALIAS 20100001 * INDICATOR IS ONE 20200001 DS 0AL3 - LINKAGE EDITOR ASSIGNED ORIGIN OF FIRST 20250001 * BLOCK OF TEXT (OS USE OF FIELD) 20300001 PDS2FTBO DS 0BL3 - FLAG BYTES (AOS USE OF FIELD) ICB269 20350001 PDS2FTB1 DS B - BYTE 1 OF PDS2FTBO ICB269 20400001 PDSAOSLE EQU BIT0 - MODULE HAS BEEN PROCESSED BY AOS LINKAGE 20410001 * EDITOR ICB410 20420001 * BIT1 IS RESERVED TO INDICATE ANOTHER EXPANSION WHEN IT 20430001 * BECOMES NECESSARY ICB410 20440001 PDS2PAGA EQU BIT2 - PAGE ALIGNMENT REQUIRED FOR LOAD 20450001 * MODULE ICB410 20460001 PDS2SSI EQU BIT3 - SSI INFORMATION PRESENT ICB410 20470001 PDSAPFLG EQU BIT4 - INFORMATION IN PDSAPF IS VALID ICB360 20472001 PDS2FTB2 DS B - BYTE 2 OF PDS2FTBO ICB269 20480001 PDS2FTB3 DS B - BYTE 3 OF PDS2FTBO ICB269 20490001 PDSBCEND EQU * - END OF BASIC SECTION 20492001 PDSBCLN EQU PDSBCEND-PDS2 - LENGTH OF BASIC SECTION 20494001 SPACE 2 20496001 * THE FOLLOWING SECTION IS FOR LOAD MODULES WITH SCATTER LOAD 20498001 SPACE 1 20498401 PDSS01 EQU * - START OF SCATTER LOAD SECTION 20498801 PDS2SLSZ DS FL2 - NUMBER OF BYTES IN SCATTER LIST 20499201 PDS2TTSZ DS FL2 - NUMBER OF BYTES IN TRANSLATION TABLE 20499601 PDS2ESDT DS CL2 - IDENTIFICATION OF ESD ITEM (ESDID) OF 20499701 * CONTROL SECTION TO WHICH FIRST BLOCK OF 20499801 * TEXT BELONGS 20499901 PDS2ESDC DS CL2 - IDENTIFICATION OF ESD ITEM (ESDID) OF 20533201 * CONTROL SECTION CONTAINING ENTRY POINT 20543201 PDSS01ND EQU * - END OF SCATTER LOAD SECTION 20553201 PDSS01LN EQU PDSS01ND-PDSS01 - LENGTH OF SCATTER LOAD SECTION 20563201 SPACE 2 20566701 * THE FOLLOWING SECTION IS FOR LOAD MODULES WITH ALIAS NAMES 20600001 SPACE 1 20800001 PDSS02 EQU * - START OF ALIAS SECTION 20850001 PDS2EPM DS AL3 - ENTRY POINT FOR MEMBER NAME 20900001 DEENTBK EQU PDS2EPM --- ALIAS 20950001 PDS2MNM DS CL8 - MEMBER NAME OF LOAD MODULE. WHEN THE 21000003 * FIRST FIELD (PDS2NAME) IS AN ALIAS NAME, 21010003 * THIS FIELD CONTAINS THE ORIGINAL NAME OF 21020003 * THE MEMBER EVEN AFTER THE MEMBER HAS 21030003 * BEEN RENAMED. (MDC302) @Z30AQ9A 21040003 PDSS02ND EQU * - END OF ALIAS SECTION 21050001 PDSS02LN EQU PDSS02ND-PDSS02 - LENGTH OF ALIAS SECTION 21060001 SPACE 2 21070001 * THE FOLLOWING SECTION IS FOR SSI INFORMATION AND IS ON 21080001 * A HALF-WORD BOUNDARY 21090001 SPACE 1 21092001 PDSS03 DS 0H - FORCE HALF-WORD ALIGNMENT FOR SSI 21094001 * SECTION 21096001 PDSSSIWD DS 0CL4 - SSI INFORMATION WORD 21098001 PDSCHLVL DS FL1 - CHANGE LEVEL OF MEMBER 21098401 PDSSSIFB DS B - SSI FLAG BYTE 21098801 PDSFORCE EQU BIT1 - A FORCE CONTROL CARD WAS USED WHEN 21099201 * EXECUTING THE IHGUAP PROGRAM 21099601 PDSUSRCH EQU BIT2 - A CHANGE WAS MADE TO MEMBER BY THE 21099701 * INSTALLATION, AS OPPOSED TO AN 21099801 * IBM-DISTRIBUTED CHANGE 21099901 PDSEMFIX EQU BIT3 - SET WHEN AN EMERGENCY IBM-AUTHORIZED 21133201 * PROGRAM 'FIX' IS MADE, AS OPPOSED TO 21143201 * CHANGES THAT ARE INCLUDED IN AN 21153201 * IBM-DISTRIBUTED MAINTENANCE PACKAGE 21163201 PDSDEPCH EQU BIT4 - A CHANGE MADE TO THE MEMBER IS DEPENDENT 21165201 * UPON A CHANGE MADE TO SOME OTHER MEMBER 21165601 * IN THE SYSTEM 21166001 PDSSYSGN EQU BIT5+BIT6 - FLAGS THAT INDICATE WHETHER OR NOT A 21166401 * CHANGE TO THE MEMBER WILL NECESSITATE A 21166501 * PARTIAL OR COMPLETE REGENERATION OF THE 21166601 * SYSTEM 21177701 PDSNOSGN EQU X'00' - NOT CRITICAL FOR SYSTEM GENERATION 21187701 PDSCMSGN EQU BIT6 - MAY REQUIRE COMPLETE REGENERATION 21188101 PDSPTSGN EQU BIT5 - MAY REQUIRE PARTIAL REGENERATION 21188501 PDSIBMMB EQU BIT7 - MEMBER IS SUPPLIED BY IBM 21188601 PDSMBRSN DS CL2 - MEMBER SERIAL NUMBER 21188701 PDSS03ND EQU * - END OF SSI SECTION 21188801 PDSS03LN EQU PDSS03ND-PDSS03 - LENGTH OF SSI SECTION 21192501 SPACE 2 21194501 * THE FOLLOWING SECTION IS FOR APF INFORMATION ICB360 * 21194901 SPACE 1 21195301 PDSS04 EQU * - START OF APF SECTION ICB360 21195701 PDSAPF DS 0CL2 - PROGRAM AUTHORIZATION FACILITY (APF) 21196101 * FIELD ICB360 21196201 PDSAPFCT DS FL1 - LENGTH OF PROGRAM AUTHORIZATION CODE 21222101 * (PDSAPFAC) IN BYTES ICB360 21232101 PDSAPFAC DS C - PROGRAM AUTHORIZATION CODE ICB360 21242101 PDSS04ND EQU * - END OF APF SECTION ICB360 21244101 PDSS04LN EQU PDSS04ND-PDSS04 - LENGTH OF APF SECTION ICB360 21246101 MEND , */ 22900001 *%PDSL2 : ; 23000002 * 26600001 *DECLARE 40600001 * 1 PDS2 BASED(PDS2PTR) BDY(WORD), 40700002 * 40800001 * 2 PDS2NAME CHAR(8) BDY(WORD), /* LOAD MODULE MEMBER NAME 40900002 * OR ALIAS */ 41000001 * 2 PDS2TTRP CHAR(3) BDY(WORD), /* TTR OF FIRST BLOCK OF 41100002 * NAMED MEMBER */ 41200001 *%IF PDSBLDL='NO' %THEN 41250001 * %GOTO PDSX2; 41260001 * 2 PDS2CNCT PTR(8), /* CONCATENATION NUMBER OF 41300001 * THE DATA SET */ 41400001 * 2 PDS2LIBF CHAR(1), /* LIBRARY FLAG FIELD */ 41500001 *%DCL PDS2LNRM CHAR; 41600001 *%PDS2LNRM='''00''X'; /* NORMAL CASE */ 41700001 *%DCL PDS2LLNK CHAR; 41800001 *%PDS2LLNK='''01''X'; /* IF DCB OPERAND IN BLDL 41900001 * MACRO INTRUCTION WAS 42000001 * SPECIFIED AS ZERO, NAME 42100001 * WAS FOUND IN LINK 42200001 * LIBRARY */ 42300001 *%DCL PDS2LJOB CHAR; 42400001 *%PDS2LJOB='''02''X'; /* IF DCB OPERAND IN BLDL 42500001 * MACRO INTRUCTION WAS 42600001 * SPECIFIED AS ZERO, NAME 42700001 * WAS FOUND IN JOB 42800001 * LIBRARY */ 42900001 *%PDSX2 : ; 42950001 * 2 PDS2INDC CHAR(1), /* INDICATOR BYTE */ 43000001 * 3 PDS2ALIS BIT(1), /* NAME IN THE FIRST FIELD 43100001 * IS AN ALIAS */ 43200001 * 3 PDS2NTTR BIT(2), /* NUMBER OF TTR'S IN THE 43300001 * USER DATA FIELD */ 43400001 * 3 PDS2LUSR BIT(5), /* LENGTH OF USER DATA 43500001 * FIELD IN HALF WORDS */ 43600001 * 2 PDS2TTRT CHAR(3), /* TTR OF FIRST BLOCK OF 43700001 * TEXT */ 43800001 * 3 PDS2USRD CHAR(1), /* START OF VARIABLE LENGTH 43900001 * USER DATA FIELD */ 44000001 * 2 PDS2ZERO CHAR(1), /* ZERO */ 44100001 * 2 PDS2TTRN CHAR(3), /* TTR OF NOTE LIST OR 44200001 * SCATTER/TRANSLATION 44300001 * TABLE. USED FOR MODULES 44400001 * IN SCATTER LOAD FORMAT 44500001 * OR OVERLAY STRUCTURE 44600001 * ONLY. */ 44700001 * 2 PDS2NL PTR(8), /* NUMBER OF ENTRIES IN 44800001 * NOTE LIST FOR MODULES 44900001 * IN OVERLAY STRUCTURE, 45000001 * OTHERWISE ZERO */ 45100001 * 2 PDS2ATR CHAR(2), /* TWO-BYTE MODULE 45200001 * ATTRIBUTE FIELD */ 45300001 * 3 PDS2ATR1 BIT(8), /* FIRST BYTE OF MODULE 45400001 * ATTRIBUTE FIELD */ 45500001 * 4 PDS2RENT BIT(1), /* REENTERABLE */ 45600001 * 4 PDS2REUS BIT(1), /* REUSABLE */ 45700001 * 4 PDS2OVLY BIT(1), /* IN OVERLAY STRUCTURE */ 45800001 * 4 PDS2TEST BIT(1), /* MODULE TO BE TESTED - 45900001 * TESTRAN */ 46000001 * 4 PDS2LOAD BIT(1), /* ONLY LOADABLE */ 46100001 * 4 PDS2SCTR BIT(1), /* SCATTER FORMAT */ 46200001 * 4 PDS2EXEC BIT(1), /* EXECUTABLE */ 46300001 * 4 PDS21BLK BIT(1), /* IF ZERO, MODULE CONTAINS 46400001 * MULTIPLE RECORDS WITH AT 46500001 * LEAST ONE BLOCK OF TEXT. 46600001 * --- IF ONE, MODULE 46700001 * CONTAINS NO RLD ITEMS 46800001 * AND ONLY ONE BLOCK OF 46900001 * TEXT. */ 47000001 * 3 PDS2ATR2 BIT(8), /* SECOND BYTE OF MODULE 47100001 * ATTRIBUTE FIELD */ 47200001 * 4 PDS2FLVL BIT(1), /* IF ZERO, MODULE CAN BE 47300001 * PROCESSED BY ALL LEVELS 47400001 * OF LINKAGE EDITOR. --- 47500001 * IF ONE, MODULE CAN BE 47600001 * PROCESSED ONLY BY F 47700001 * LEVEL OF LINKAGE EDITOR. */ 47800001 * 4 PDS2ORG0 BIT(1), /* LINKAGE EDITOR ASSIGNED 47900001 * ORIGIN OF FIRST BLOCK 48000001 * OF TEXT IS ZERO. */ 48100001 * 4 PDS2EP0 BIT(1), /* ENTRY POINT ASSIGNED BY 48200001 * LINKAGE EDITOR IS ZERO */ 48300001 * 4 PDS2NRLD BIT(1), /* MODULE CONTAINS NO RLD 48400001 * ITEMS */ 48500001 * 4 PDS2NREP BIT(1), /* MODULE CANNOT BE 48600001 * REPROCESSED BY LINKAGE 48700001 * EDITOR */ 48800001 * 4 PDS2TSTN BIT(1), /* MODULE CONTAINS TESTRAN 48900001 * SYMBOL CARDS */ 49000001 * 4 PDS2LEF BIT(1), /* MODULE CREATED BY 49100001 * LINKAGE EDITOR F */ 49200001 * 4 PDS2REFR BIT(1), /* REFRESHABLE MODULE */ 49300001 * 2 PDS2STOR PTR(24) BDY(BYTE), /* TOTAL CONTIGUOUS MAIN 49400001 * STORAGE REQUIREMENT OF 49500001 * MODULE */ 49600001 * 2 PDS2FTBL FIXED(15) BDY(BYTE), /* LENGTH OF FIRST BLOCK OF 49700001 * TEXT */ 49800001 * 2 PDS2EPA PTR(24) BDY(BYTE), /* ENTRY POINT ADDRESS 49900001 * ASSOCIATED WITH MEMBER 50000001 * NAME OR WITH ALIAS NAME 50100001 * IF ALIAS INDICATOR IS 50200001 * ONE */ 50300001 * 2 * PTR(24) BDY(BYTE), /* LINKAGE EDITOR ASSIGNED 50350001 * ORIGIN OF FIRST BLOCK OF 50400001 * TEXT (OS USE OF FIELD) */ 50450001 * 3 PDS2FTBO CHAR(3), /* FLAG BYTES (AOS USE OF 50500001 * FIELD) ICB269*/ 50550001 * 4 PDS2FTB1 BIT(8), /* BYTE 1 OF PDS2FTBO ICB269*/ 50600001 * 5 PDSAOSLE BIT(1), /* MODULE HAS BEEN PROCESSED 50610001 * BY AOS LINKAGE EDITOR 50620001 * ICB410*/ 50630001 * 5 * BIT(1), /* RESERVED TO INDICATE 50650001 * ANOTHER EXPANSION WHEN IT 50652001 * BECOMES NECESSARY ICB410*/ 50654001 * 5 PDS2PAGA BIT(1), /* PAGE ALIGNMENT REQUIRED 50660001 * FOR LOAD MODULE ICB410*/ 50670001 * 5 PDS2SSI BIT(1), /* SSI INFORMATION PRESENT 50680001 * ICB410*/ 50690001 * 5 PDSAPFLG BIT(1), /* INFORMATION IN PDSAPF IS 50692401 * VALID ICB360*/ 50692801 * 5 * BIT(3), /* RESERVED */ 50693201 * 4 PDS2FTB2 CHAR(1), /* BYTE 2 OF PDS2FTBO ICB269*/ 50694001 * 4 PDS2FTB3 CHAR(1), /* BYTE 3 OF PDS2FTBO ICB269*/ 50696001 * 2 PDSBCEND CHAR(0); /* END OF BASIC SECTION */ 50698001 * 51000001 * 51500001 * /* THE FOLLOWING SECTION IS FOR LOAD MODULES WITH SCATTER LOAD */ 51550001 * 51700001 *DECLARE 51800001 * 1 PDSS01 BASED(PDSPTRV) BDY(BYTE), 51900001 * 2 PDS2SLSZ FIXED(15) BDY(BYTE), /* NUMBER OF BYTES IN 52000001 * SCATTER LIST */ 52100001 * 2 PDS2TTSZ FIXED(15) BDY(BYTE), /* NUMBER OF BYTES IN 52200001 * TRANSLATION TABLE */ 52300001 * 2 PDS2ESDT CHAR(2), /* IDENTIFICATION OF ESD 52400001 * ITEM (ESDID) OF CONTROL 52500001 * SECTION TO WHICH FIRST 52600001 * BLOCK OF TEXT BELONGS */ 52700001 * 2 PDS2ESDC CHAR(2), /* IDENTIFICATION OF ESD 52800001 * ITEM (ESDID) OF CONTROL 52900001 * SECTION CONTAINING ENTRY 53000001 * POINT */ 53100001 * 2 PDSS01ND CHAR(0); /* END OF SCATTER LOAD 53150001 * SECTION */ 53160001 * 53170001 * 53200001 * /* THE FOLLOWING SECTION IS FOR LOAD MODULES WITH ALIAS NAMES */ 53250001 * 53500001 *DECLARE 53550001 * 1 PDSS02 BASED(PDSPTRV) BDY(BYTE), 53560001 * 2 PDS2EPM PTR(24) BDY(BYTE), /* ENTRY POINT FOR MEMBER 53600001 * NAME */ 53700001 * 2 PDS2MNM CHAR(8), /* MEMBER NAME OF LOAD 53800001 * MODULE. WHEN THE FIRST 53900003 * FIELD (PDS2NAME) IS AN 53906003 * ALIAS NAME, THIS FIELD 53912003 * CONTAINS THE ORIGINAL 53918003 * NAME OF THE MEMBER EVEN 53924003 * AFTER THE MEMBER HAS BEEN 53930003 * RENAMED. 53936003 * (MDC302) @Z30AQ9A*/ 53942003 * 2 PDSS02ND CHAR(0); /* END OF ALIAS SECTION */ 53950001 * 54000001 * 54050001 * /* THE FOLLOWING SECTION IS FOR SSI INFORMATION AND IS ON */ 54100001 * /* A HALF-WORD BOUNDARY */ 54150001 * 54200001 *DECLARE 54250001 * 1 PDSS03 BASED(PDSPTRV) BDY(HWORD), 54300001 * 2 PDSSSIWD CHAR(4), /* SSI INFORMATION WORD */ 54350001 * 3 PDSCHLVL PTR(8), /* CHANGE LEVEL OF MEMBER */ 54400001 * 3 PDSSSIFB BIT(8), /* SSI FLAG BYTE */ 54450001 * 4 * BIT(1), /* RESERVED */ 54500001 * 4 PDSFORCE BIT(1), /* A FORCE CONTROL CARD WAS 54550001 * USED WHEN EXECUTING THE 54600001 * IHGUAP PROGRAM */ 54650001 * 4 PDSUSRCH BIT(1), /* A CHANGE WAS MADE TO 54700001 * MEMBER BY THE 54750001 * INSTALLATION, AS OPPOSED 54800001 * TO AN IBM-DISTRIBUTED 54850001 * CHANGE */ 54900001 * 4 PDSEMFIX BIT(1), /* SET WHEN AN EMERGENCY 54950001 * IBM-AUTHORIZED PROGRAM 55000001 * 'FIX' IS MADE, AS OPPOSED 55050001 * TO CHANGES THAT ARE 55100001 * INCLUDED IN AN IBM- 55150001 * DISTRIBUTED MAINTENANCE 55200001 * PACKAGE */ 55250001 * 4 PDSDEPCH BIT(1), /* A CHANGE MADE TO THE 55300001 * MEMBER IS DEPENDENT UPON 55350001 * A CHANGE MADE TO SOME 55400001 * OTHER MEMBER IN SYSTEM */ 55450001 * 4 PDSSYSGN BIT(2), /* FLAGS THAT INDICATE 55500001 * WHETHER OR NOT A CHANGE 55550001 * TO THE MEMBER WILL 55600001 * NECESSITATE A PARTIAL OR 55650001 * COMPLETE REGENERATION OF 55700001 * THE SYSTEM */ 55750001 *%PDSNOSGN='''00''B'; /* NOT CRITICAL FOR SYSTEM 55800001 * GENERATION */ 55850001 *%PDSCMSGN='''01''B'; /* MAY REQUIRE COMPLETE 55900001 * REGENERATION */ 55950001 *%PDSPTSGN='''10''B'; /* MAY REQUIRE PARTIAL 56000001 * REGENERATION */ 56050001 * 4 PDSIBMMB BIT(1), /* MEMBER IS SUPPLIED BY IBM*/ 56100001 * 3 PDSMBRSN CHAR(2), /* MEMBER SERIAL NUMBER */ 56150001 * 2 PDSS03ND CHAR(0); /* END OF SSI SECTION */ 56200001 * 56250001 * 56300001 * /* THE FOLLOWING SECTION IS FOR APF INFORMATION ICB360*/ 56350001 * 56400001 *DECLARE 56450001 * 1 PDSS04 BASED(PDSPTRV) BDY(BYTE), 56500001 * 2 PDSAPF CHAR(2), /* PROGRAM AUTHORIZATION 56550001 * FACILITY (APF) FIELD 56600001 * ICB360*/ 56650001 * 3 PDSAPFCT PTR(8), /* LENGTH OF PROGRAM 56700001 * AUTHORIZATION CODE 56750001 * (PDSAPFAC) IN BYTES 56800001 * ICB360*/ 56850001 * 3 PDSAPFAC CHAR(1), /* PROGRAM AUTHORIZATION 56900001 * CODE ICB360*/ 56950001 * 2 PDSS04ND CHAR(0); /* END OF APF SECTION ICB360*/ 57000001