* 00400002 * %GOTO ATTCHL1 ; /* BILINGUAL MAPPING 00500002 MACRO 00800000 IEZATTCH , */ 01200002 *%ATTCHL1 : ; 01250002 * 01260002 * /* *************************************************************** */ 01300002 * /* */ 01350002 * /* ATTACH PARAMETER LIST MAPPING MACRO */ 01400002 * /* */ 01450002 * /* OS/VS2 RELEASE 4, 06/23/75, LEVEL=1 */ 01500004 * /* */ 01600002 * /* THE FOLLOWING MACRO PROVIDES A MAPPING OF THE PARAMETER */ 01650002 * /* LIST WHICH SERVES AS THE INPUT TO THE ATTACH SERVICE */ 01700002 * /* ROUTINE(SVC 42). THIS MACRO IS TO BE USED WHEN THE */ 01750002 * /* ATTACH PARAMETER LIST IS BUILT DYNAMICALLY. IT MAY ALSO */ 01800002 * /* BE USED TO DOCUMENT THE CONTENTS OF THE PARAMETER LIST */ 01850002 * /* WHICH IS EXPANDED BY THE ATTACH MACRO. */ 01900002 * /* */ 01950002 * /* *************************************************************** */ 01960002 *%GOTO ATTCHL2; /* 02000002 SPACE 1 08000001 ATTCHLST DSECT , - ATTCHPTR 08400001 * 08800000 IEZBITS 09200000 * 09600000 ATPGNADA DS 0A - ENTRY ADDRESS 10000001 ATDEFLAG DS B - FLAGS TO SHOW TYPE OF ENTRY POINT VALUE 10400004 ATDENTRY EQU BIT0 - DIRECTORY ENTRY EXISTS 10800001 ATRSV001 EQU BIT1 - RESERVED (MDC301) @Z40AQ9A 10850004 ATRSV002 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 10900004 ATRSV003 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 10950004 ATRSV004 EQU BIT4 - RESERVED (MDC301) @Z40AQ9A 11000004 ATRSV005 EQU BIT5 - RESERVED (MDC301) @Z40AQ9A 11050004 ATRSV006 EQU BIT6 - RESERVED (MDC301) @Z40AQ9A 11100004 ATRSV007 EQU BIT7 - RESERVED (MDC301) @Z40AQ9A 11150004 ATPGNADB DS AL3 - ENTRY ADDRESS 11200001 ATDCBADA DS 0A - DCB ADDRESS 12000001 ATHARCHY DS CL1 - HIERARCHY INDICATION 12400001 ATHZERO EQU X'01' - VALUE OF 1 MEANS HIERARCHY 0 12800001 ATHONE EQU X'02' - VALUE OF 2 MEANS HIERARCHY 1 13200001 ATDCBADB DS AL3 - DCB ADDRESS 13600001 ATECBADR DS 0A - ECB ADDRESS 14400001 ATECBFLG DS B - ECB FLAGS 14800001 ATRSV008 EQU BIT0 - RESERVED (MDC301) @Z40AQ9A 14802004 ATRSV009 EQU BIT1 - RESERVED (MDC301) @Z40AQ9A 14804004 ATRSV010 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 14806004 ATRSV011 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 14808004 ATEXTN2 EQU BIT4 - 1 - FIELD ATTPLNG IS PRESENT Y02752 14810002 * 0 - FIELD ATTPLNG IS NOT PRESENT Y02752 14820002 ATLOGON EQU BIT5 - LOGON BEING ATTACHED (TSLOGON=YES) ICB404 14850002 ATTSKLB EQU BIT6 - TASK LIBRARY DCB ADDRESS PRESENT 15200002 ATTSTAI EQU BIT7 - STAI OR ESTAI EXIT ADDRESS PRESENT 15600002 ATECBADB DS AL3 - ECB ADDRESS 16000001 ATGSFLDA DS 0A - SUBPOOL VALUE OR ADDRESS 16800001 ATGSFLAG DS B - GIVE SUBPOOL FLAG 17200001 ATRSV012 EQU BIT0 - RESERVED (MDC301) @Z40AQ9A 17250004 ATRSV013 EQU BIT1 - RESERVED (MDC301) @Z40AQ9A 17300004 ATRSV014 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 17350004 ATRSV015 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 17400004 ATRSV016 EQU BIT4 - RESERVED (MDC301) @Z40AQ9A 17450004 ATRSV017 EQU BIT5 - RESERVED (MDC301) @Z40AQ9A 17500004 ATRSV018 EQU BIT6 - RESERVED (MDC301) @Z40AQ9A 17550004 ATGIVESP EQU BIT7 - SUBPOOLS TO BE GIVEN ARE IN LIST 17600001 ATGSFLDB DS AL3 - SUBPOOL VALUE OR ADDRESS 18000001 ATSHFLDA DS 0A - SHARE SUBPOOL VALUE OR ADDRESS 18800001 ATSHFLAG DS B - SHARE SUBPOOL FLAGS 19200001 ATRSV019 EQU BIT0 - RESERVED (MDC301) @Z40AQ9A 19250004 ATRSV020 EQU BIT1 - RESERVED (MDC301) @Z40AQ9A 19300004 ATRSV021 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 19350004 ATRSV022 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 19400004 ATRSV023 EQU BIT4 - RESERVED (MDC301) @Z40AQ9A 19450004 ATRSV024 EQU BIT5 - RESERVED (MDC301) @Z40AQ9A 19500004 ATRSV025 EQU BIT6 - RESERVED (MDC301) @Z40AQ9A 19550004 ATSHARSP EQU BIT7 - SUBPOOLS TO BE SHARED ARE IN LIST 19600001 ATSHFLDB DS AL3 - SHARE SUBPOOL VALUE OR ADDRESS 20000001 ATETXRA DS 0A - ETXR ADDRESS 20800001 ATROLL DS 0B - ROLLOUT BITS ICB442 21200001 ATINDS2 DS B - FLAG BYTE ICB442 21210001 ATNTQE EQU BIT0 - IF ON, IT INDICATES TO ATTACH SVC 21220001 * ROUTINE THAT THE NEW SUBTASK IS NOT TO 21230001 * HAVE A TQE. (TQE=NO OPTION SPECIFIED) 21240001 * (0S/VS1) ICB442 21250004 ATNFPRSA EQU BIT1 - IF ON, IT INDICATES TO ATTACH SVC ROUTINE 21260002 * THAT THE NEW SUBTASK IS NOT TO HAVE A 21270002 * FLOATING POINT REGISTER SAVE AREA (OPTION 21280002 * FPREGSA=NO SPECIFIED). (OS/VS1) ICB442 21290004 ATEXTN EQU BIT2 - INDICATES THAT THE ATTACH PARAMETER LIST 21300001 * IS AN OS/VS EXTENDED LIST. THIS MEANS 21310004 * THAT IT IS VALID FOR THE ATTACH SVC 21340004 * ROUTINE TO EXAMINE THE ATLSQA AND ATTID 21370004 * FIELDS. (ICB442) YM0158 21400004 ATRSV026 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 21430004 ATRSV027 EQU BIT4 - RESERVED (MDC301) @Z40AQ9A 21460004 ATRSV028 EQU BIT5 - RESERVED (MDC301) @Z40AQ9A 21490004 ATRLABLE EQU BIT6 - TASK IS ROLLOUTABLE 21600001 ATRLLOUT EQU BIT7 - TASK CAN CAUSE ROLLOUT 22000001 ATETXRB DS AL3 - ETXR ADDRESS 22400001 ATDPMOD DS H - DISPATCHING PRIORITY 23200001 ATLPMOD DS FL1 - LIMIT PRIORITY 24000001 ATLMPRI EQU X'FF' - REDUCE LIMIT PRIORITY BY PARM VALUE 24400001 ATINDS DS B - OPTION FLAGS 25200001 * OPTION FLAGS *** BIT ON = KEYWORD PROVIDED 25600000 ATDISP EQU BIT0 - 'DISP=NO' KEYWORD PROVIDED ICB404 25650002 ATJSCB EQU BIT1 - 'JSCB' ADDRESS PROVIDED 26000002 ATJPQ EQU BIT2 - 'GIVEJPQ=YES' KEYWORD PROVIDED 26400002 ATKEY EQU BIT3 - 'KEY=ZERO' KEYWORD PROVIDED 26800002 ATSZERO EQU BIT4 - 'SZERO=NO' KEYWORD PROVIDED 27200002 ATSVAREA EQU BIT5 - 'SVAREA=NO' KEYWORD PROVIDED 27600002 ATJSTCB EQU BIT6 - 'JSTCB=YES' KEYWORD PROVIDED 28000002 ATMODE EQU BIT7 - 'SM=SUPV' KEYWORD PROVIDED 28400002 ATPRGNM DS CL8 - PROGRAM NAME 29200001 ATJSCBAD DS 0A - JSCB ADDRESS ICB404 30000001 ATLSQA DS FL1 - LSQA VALUE ICB404 30050001 ATJSCBA DS AL3 - JSCB ADDRESS ICB404 30100001 ATSTAIAD DS 0A - ADDR OF STAI/ESTAI PARM LIST ICB404 30800002 ATTID DS FL1 - TASK ID ICB404 30850001 ATSTAIA DS AL3 - ADDR OF STAI/ESTAI PARM LIST ICB404 30900002 ATSTAIEX DS 0A - ADDR OF STAI/ESTAI EXIT RTN Y02752 31600002 ATSTAIF DS X - STAI/ESTAI FLAGS Y02752 31650002 ATRSV029 EQU BIT0 - RESERVED (MDC301) @Z40AQ9A 31650504 ATRSV030 EQU BIT1 - RESERVED (MDC301) @Z40AQ9A 31651004 ATRSV031 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 31651504 ATTERM EQU BIT3 - 1 - TERM=YES Y02752 31652002 * 0 - TERM=NO Y02752 31654002 ATESTAI EQU BIT4 - 1 - ESTAI SPECIFIED Y02752 31656002 * 0 - ESTAI NOT SPECIFIED Y02752 31658002 ATSYNCH EQU BIT5 - 1 - ASYNCH=YES Y02752 31658402 * 0 - ASYNCH=NO Y02752 31658802 ATPURGE EQU BIT6+BIT7 - BITS 6 AND 7 DEFINE PURGE PARM Y02752 31660002 ATPURGEQ EQU X'00' - 00 - PURGE=QUIESCE Y02752 31700002 ATPURGEH EQU X'01' - 01 - PURGE=HALT Y02752 31750002 ATPURGEN EQU X'02' - 10 - PURGE=NONE Y02752 31800002 ATSTAIXT DS AL3 - ADDR OF STAI OR ESTAI EXIT RTN Y02752 32150002 ATTASKLB DS A - ADDR OF TASK LIBRARY DCB 32400001 ATFLAGS1 DS B - OS/VS2 EXTENSION FLAGS Y02752 32450002 ATNSHRSP EQU BIT0 - 0-FIELD ATTNSHLV IS SUBPOOL NUMBER Y02752 32500002 * 1-FIELD ATTNSHLV IS ADDR OF A LIST Y02752 32550002 ATRSAPF EQU BIT1 - IF ON, ATTACHOR REQUESTED APF 32555004 * AUTHORIZATION RESET (MDC300) @Z40RP9A 32560004 ATRSV032 EQU BIT2 - RESERVED (MDC301) @Z40AQ9A 32565004 ATRSV033 EQU BIT3 - RESERVED (MDC301) @Z40AQ9A 32570004 ATRSV034 EQU BIT4 - RESERVED (MDC301) @Z40AQ9A 32575004 ATRSV035 EQU BIT5 - RESERVED (MDC301) @Z40AQ9A 32580004 ATRSV036 EQU BIT6 - RESERVED (MDC301) @Z40AQ9A 32585004 ATRSV037 EQU BIT7 - RESERVED (MDC301) @Z40AQ9A 32590004 ATRSV038 DS X - RESERVED (MDC301) @Z40AQ9A 32600004 ATTPLNG DS H - LENGTH OF THIS PARM LIST, IN BYTES Y02752 32650002 ATTNSHLV DS A - NSHSPV OR NSHSPL PARAMETER Y02752 32700002 * 32800000 ATLSTSIZ EQU *-ATTCHLST - LENGTH OF ATTACH PARAMETER LIST 33200001 * 33600000 *********************************************************************** 34000000 * 34400000 MEND , */ 34800000 * %ATTCHL2 : ; 35200002 * 36800000 * DECLARE 44000000 * 1 ATTCHLST BASED(ATTCHPTR), 44400000 * 2 ATPGNADA PTR(31), /* ENTRY ADDRESS */ 45600000 * 3 ATDEFLAG CHAR(1), /* FLAGS TO SHOW TYPE OF ENTRY 46000000 * POINT VALUE */ 46400004 * 4 ATDENTRY BIT(1), /* DIRECTORY ENTRY EXISTS */ 46800000 * 4 ATRSV001 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47200004 * 4 ATRSV002 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47250004 * 4 ATRSV003 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47300004 * 4 ATRSV004 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47350004 * 4 ATRSV005 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47400004 * 4 ATRSV006 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47450004 * 4 ATRSV007 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 47500004 * 3 ATPGNADB PTR(24), /* ENTRY ADDRESS */ 50000001 * 2 ATDCBADA PTR(31), /* DCB ADDRESS */ 51200000 * 3 ATHARCHY CHAR(1), /* HIERARCHY INDICATION */ 51600000 * %DCL ATHZERO CHAR; 52000000 * %ATHZERO ='''01''X'; /* VALUE OF 1 MEANS HIERARCHY 0 */ 52400000 * %DCL ATHONE CHAR; 52800000 * %ATHONE ='''02''X'; /* VALUE OF 2 MEANS HIERARCHY 1 */ 53200000 * 3 ATDCBADB PTR(24), /* DCB ADDRESS */ 53600001 * 2 ATECBADR PTR(31), /* ECB ADDRESS */ 54800000 * 3 ATECBFLG CHAR(1), /* ECB FLAGS */ 55200000 * 4 ATRSV008 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 55600004 * 4 ATRSV009 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 55610004 * 4 ATRSV010 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 55620004 * 4 ATRSV011 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 55630004 * 4 ATEXTN2 BIT(1), /* FIELD ATTPLNG PRESENT Y02752*/ 55650002 * 4 ATLOGON BIT(1), /* LOGON BEING ATTACHED ICB404*/ 57600001 * 4 ATTSKLB BIT(1), /* TASKLIB DCB PRESENT Y02752*/ 58000002 * 4 ATTSTAI BIT(1), /* STAI OR ESTAI EXIT ADDR 58400002 * PRESENT Y02752*/ 58410002 * 3 ATECBADB PTR(24), /* ECB ADDRESS */ 58800001 * 2 ATGSFLDA PTR(31), /* SUBPOOL VALUE OR ADDRESS */ 60000000 * 3 ATGSFLAG CHAR(1), /* GIVE SUBPOOL FLAG */ 60400000 * 4 ATRSV012 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 60800004 * 4 ATRSV013 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 60850004 * 4 ATRSV014 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 60900004 * 4 ATRSV015 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 60950004 * 4 ATRSV016 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 61000004 * 4 ATRSV017 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 61050004 * 4 ATRSV018 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 61100004 * 4 ATGIVESP BIT(1), /* SUBPOOLS TO BE GIVEN ARE IN 63600000 * LIST */ 64000000 * 3 ATGSFLDB PTR(24), /* SUBPOOL VALUE OR ADDRESS */ 64400001 * 2 ATSHFLDA PTR(31), /* SHARE SUBPOOL VALUE OR 65600000 * ADDRESS */ 66000000 * 3 ATSHFLAG CHAR(1), /* SHARE SUBPOOL FLAGS */ 66400000 * 4 ATRSV019 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 66800004 * 4 ATRSV020 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 66850004 * 4 ATRSV021 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 66900004 * 4 ATRSV022 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 66950004 * 4 ATRSV023 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 67000004 * 4 ATRSV024 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 67050004 * 4 ATRSV025 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 67100004 * 4 ATSHARSP BIT(1), /* SUBPOOLS TO BE SHARED ARE IN 69600000 * LIST */ 70000000 * 3 ATSHFLDB PTR(24), /* SHARE SUBPOOL VALUE OR 70400001 * ADDRESS */ 71200001 * 2 ATETXRA PTR(31), /* ETXR ADDRESS */ 72000000 * 3 ATROLL CHAR(1), /* ROLLOUT BITS */ 72400000 * 4 ATINDS2 BIT(8), /* FLAG BYTE ICB442*/ 72410001 * 5 ATNTQE BIT(1), /* IF ON, IT INDICATES TO ATTACH 72420001 * SVC ROUTINE THAT THE NEW 72430001 * SUBTASK IS NOT TO HAVE A TQE. 72440001 * (TQE=NO OPTION SPECIFIED) 72450001 * (OS/VS1) ICB442*/ 72460004 * 5 ATNFPRSA BIT(1), /* IF ON, IT INDICATES TO ATTACH 72470001 * SVC ROUTINE THAT THE NEW 72480001 * SUBTASK IS NOT TO HAVE A 72490001 * FLOATING POINT REGISTER SAVE 72500001 * AREA. (FPREGSA=NO OPTION 72510001 * SPECIFIED) (OS/VS1) ICB442*/ 72520004 * 5 ATEXTN BIT(1), /* INDICATES THAT THE ATTACH 72530001 * PARAMETER LIST IS AN OS/VS 72540004 * EXTENDED LIST. THIS MEANS 72550001 * THAT IT IS VALID FOR THE 72560001 * ATTACH SVC ROUTINE TO EXAMINE 72570001 * THE ATLSQA AND ATTID FIELDS. 72580001 * (ICB442) YM0158*/ 72590004 * 5 ATRSV026 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 72640004 * 5 ATRSV027 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 72690004 * 5 ATRSV028 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 72740004 * 5 ATRLABLE BIT(1), /* TASK IS ROLLOUTABLE */ 75200001 * 5 ATRLLOUT BIT(1), /* TASK CAN CAUSE ROLLOUT */ 75600001 * 3 ATETXRB PTR(24), /* ETXR ADDRESS */ 76000001 * 2 ATDPMOD FIXED(15), /* DISPATCHING PRIORITY */ 77200000 * 2 ATLPMOD PTR(8), /* LIMIT PRIORITY */ 78000001 * %DCL ATLMPRI CHAR; 78400000 * %ATLMPRI ='''FF''X'; /* REDUCE LIMIT PRIORITY BY 78800000 * PARM VALUE */ 79200000 * 2 ATINDS CHAR(1), /* OPTION FLAGS */ 80000001 * /* OPTION FLAGS *** BIT ON = KEYWORD PROVIDED */ 80050001 * 3 ATDISP BIT(1), /* 'DISP=NO' KEYWORD PROVIDED 81200002 * ICB404*/ 81250001 * 3 ATJSCB BIT(1), /* 'JSCB' ADDRESS PROVIDED */ 81600002 * 3 ATJPQ BIT(1), /* 'GIVEJPQ=YES' SPECIFIED */ 82000002 * 3 ATKEY BIT(1), /* 'KEY=ZERO' KEYWORD PROVIDED */ 82400002 * 3 ATSZERO BIT(1), /* 'SZERO=NO' KEYWORD PROVIDED */ 82800002 * 3 ATSVAREA BIT(1), /* 'SVAREA=NO' KEYWORD PROVIDED */ 83200002 * 3 ATJSTCB BIT(1), /* 'JSTCB=YES' KEYWORD PROVIDED */ 83600002 * 3 ATMODE BIT(1), /* 'SM=SUPV' KEYWORD PROVIDED */ 84000002 * 2 ATPRGNM CHAR(8), /* PROGRAM NAME */ 84800000 * 2 ATJSCBAD PTR(31), /* JSCB ADDRESS */ 85600000 * 3 ATLSQA PTR(8), /* LSQA VALUE ICB404*/ 85650001 * 3 ATJSCBA PTR(24), /* JSCB ADDRESS ICB404*/ 85700001 * 2 ATSTAIAD PTR(31), /* ADDR OF STAI/ESTAI PARM LIST */ 86400002 * 3 ATTID PTR(8), /* TASK ID ICB404*/ 86450001 * 3 ATSTAIA PTR(24), /* ADDRESS OF STAI/ESTAI PARM 86500002 * LIST ICB404*/ 86550001 * 2 ATSTAIEX PTR(31), /* ADDR OF STAI/ESTAI EXIT RTN */ 87200002 * 3 ATSTAIF PTR(8), /* STAI/ESTAI FLAGS Y02752*/ 87250002 * 4 ATRSV029 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 87300004 * 4 ATRSV030 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 87310004 * 4 ATRSV031 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 87320004 * 4 ATTERM BIT(1), /* 1-TERM=YES, 0-TERM=NO Y02752*/ 87350002 * 4 ATESTAI BIT(1), /* 1-ESTAI SPECIFIED 87400002 * 0-ESTAI NOT SPECIFIED Y02752*/ 87450002 * 4 ATSYNCH BIT(1), /* 1-ASYNCH=YES 87500002 * 0-ASYNCH=NO Y02752*/ 87550002 * 4 ATPURGE BIT(2), /* PURGE PARAMETER VALUES Y02752*/ 87600002 * %DCL ATPURGEQ CHAR; /* Y02752*/ 87650002 * %ATPURGEQ = '''00''B'; /* 00 - PURGE=QUIESCE Y02752*/ 87700002 * %DCL ATPURGEH CHAR; /* Y02752*/ 87750002 * %ATPURGEH = '''01''B'; /* 01 - PURGE=HALT Y02752*/ 87800002 * %DCL ATPURGEN CHAR; /* Y02752*/ 87850002 * %ATPURGEN = '''10''B'; /* 10 - PURGE=NONE Y02752*/ 87900002 * 3 ATSTAIXT PTR(24), /* EXIT RTN ADDR Y02752*/ 87950002 * 2 ATTASKLB PTR(31), /* ADDR OF TASK LIBRARY DCB */ 88000002 * 2 ATFLAGS1 BIT(8), /* OS/VS2 EXTENSION FLAGS Y02752*/ 88050002 * 3 ATNSHRSP BIT(1), /* 1-FIELD ATTNSHLV CONTAINS A 88100002 * SUBPOOL NUMBER, 0-FIELD 88150002 * ATTNSHLV CONTAINS THE ADDRESS 88200002 * OF A LIST Y02752*/ 88250002 * 3 ATRSAPF BIT(1), /* IF ON, ATTACHOR REQUESTED APF 88270004 * AUTHORIZATION RESET 88290004 * (MDC300) @Z40RP9A*/ 88310004 * 3 ATRSV032 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88350004 * 3 ATRSV033 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88351004 * 3 ATRSV034 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88352004 * 3 ATRSV035 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88353004 * 3 ATRSV036 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88354004 * 3 ATRSV037 BIT(1), /* RESERVED (MDC301) @Z40AQ9A*/ 88355004 * 2 ATRSV038 PTR(8), /* RESERVED (MDC301) @Z40AQ9A*/ 88360004 * 2 ATTPLNG FIXED(15), /* LENGTH OF THIS PARM LIST, 88370002 * IN BYTES Y02752*/ 88390002 * 2 ATTNSHLV PTR(31); /* NSHSPV OR NSHSPL PARM Y02752*/ 88392002 * 88400000 *%ATLSTSIZ='LENGTH(ATTCHLST)'; /* LENGTH OF ATTACH PARAMETER 88450001 * LIST */ 88500001 * 88800000 * /* *************************************************************** */ 89200000 * 89600000