* %GOTO PLSS99K1; /* 00100002 MACRO 00150002 IEFZB4D2 00200002 **/ 00250002 *%PLSS99K1: ; 00300002 * /*******************************************************************/ 00350002 * /* IEFZB4D2 */ 00400002 * /* */ 00400102 * /* MACMEAN IEFZB4D2 MAPS THE DYNAMIC ALLOCATION TEXT UNIT KEYS */ 00400402 * /* MACCOMP Y-2 SC1B4/PZD02 @G16APPK*/ 00402003 * /* MACSTAT Y-2 76196/G29AN2F @G16APPK*/ 00403003 * /* */ 00404003 * /* STATUS - OZ25778 - SUPPORT NEW SUBSYSTEM ATTRIBUTE KEY @ZA25778*/ 00405003 * /* */ 00410002 * /* THIS MACRO DEFINES THE DYNAMIC ALLOCATION KEYS FOR EACH OF THE */ 00450002 * /* DYNAMIC ALLOCATION FUNCTIONS. THE KEYS ARE USED IN THE TEXT UNIT*/ 00500002 * /* INPUT TO DYNAMIC ALLOCATION. A KEY IDENTIFIES THE INFORMATION */ 00550002 * /* BEING PASSED IN A PARTICULAR TEXT UNIT. THE NAMES FOR THE KEYS */ 00600002 * /* CONSIST OF THE CHARACTER 'D' REPRESENTING DYNAMIC ALLOCATION, */ 00650002 * /* TWO CHARACTERS REPRESENTING THE DYNAMIC ALLOCATION FUNCTION, */ 00700002 * /* FOLLOWED BY UP TO FIVE DESCRIPTIVE CHARACTERS. THE CHARACTER */ 00750002 * /* REPRESENTATION FOR THE DYNAMIC ALLOCATION FUNCTIONS ARE: 'AL' */ 00800002 * /* FOR ALLOCATION, 'UN' FOR UNALLOCATION, 'CC' FOR CONCATENATION, */ 00850002 * /* 'DC' FOR DECONCATENATION, 'RI' FOR REMOVE IN-USE, 'DN' FOR */ 00900002 * /* DDNAME ALLOCATION, AND 'IN' FOR INFORMATION RETRIEVAL. A KEY */ 00950002 * /* IS TWO BYTES IN LENGTH. */ 01000002 * /* */ 01050002 * /*******************************************************************/ 01100002 * /* IEFZB4D2 C - SU29 VECTOR PROCESSING SUBSYSTEM SUPPORT @G29AN2F*/ 01110003 * /* IEFZB4D2 C - SU32 RACF PROTECT KEY SUPPORT @G32HPPJ*/ 01120003 * /* IEFZB4D2 C - MERGED BACK TO REL 3.7 @ZA28413*/ 01130003 * /* IEFZB4D2 C - ADD SUBSYSTEM ATTRIBUTE TEXT UNIT @ZA25778*/ 01140003 * %GOTO PLSS99K2; /* 01150002 SVC99KYS DSECT 01200002 *********************************************************************** 01250002 * 01300002 * KEYS FOR ALLOCATION FUNCTION 01350002 * 01400002 *********************************************************************** 01450002 DALDDNAM EQU X'0001' DDNAME 01500002 DALDSNAM EQU X'0002' DSNAME 01550002 DALMEMBR EQU X'0003' MEMBER NAME 01600002 DALSTATS EQU X'0004' DATA SET STATUS 01650002 DALNDISP EQU X'0005' DATA SET NORMAL DISPOSITION 01700002 DALCDISP EQU X'0006' DATA SET CONDITIONAL DISP 01750002 DALTRK EQU X'0007' TRACK SPACE TYPE 01800002 DALCYL EQU X'0008' CYLINDER SPACE TYPE 01850002 DALBLKLN EQU X'0009' AVERAGE DATA BLOCK LENGTH 01900002 DALPRIME EQU X'000A' PRIMARY SPACE QUANTITY 01950002 DALSECND EQU X'000B' SECONDARY SPACE QUANTITY 02000002 DALDIR EQU X'000C' DIRECTORY SPACE QUANTITY 02050002 DALRLSE EQU X'000D' UNUSED SPACE RELEASE 02100002 DALSPFRM EQU X'000E' CONTIG,MXIG,ALX SPACE FORMAT 02150002 DALROUND EQU X'000F' WHOLE CYLINDER (ROUND) SPACE 02200002 DALVLSER EQU X'0010' VOLUME SERIAL 02250002 DALPRIVT EQU X'0011' PRIVATE VOLUME 02300002 DALVLSEQ EQU X'0012' VOL SEQUENCE NUMBER 02350002 DALVLCNT EQU X'0013' VOLUME COUNT 02400002 DALVLRDS EQU X'0014' VOLUME REFERENCE TO DSNAME 02450002 DALUNIT EQU X'0015' UNIT DESCRIPTION 02500002 DALUNCNT EQU X'0016' UNIT COUNT 02550002 DALPARAL EQU X'0017' PARALLEL MOUNT 02600002 DALSYSOU EQU X'0018' SYSOUT 02650002 DALSPGNM EQU X'0019' SYSOUT PROGRAM NAME 02700002 DALSFMNO EQU X'001A' SYSOUT FORM NUMBER 02750002 DALOUTLM EQU X'001B' OUTPUT LIMIT 02800002 DALCLOSE EQU X'001C' UNALLOCATE AT CLOSE 02850002 DALCOPYS EQU X'001D' SYSOUT COPIES 02900002 DALLABEL EQU X'001E' LABEL TYPE 02950002 DALDSSEQ EQU X'001F' DATA SET SEQUENCE NUMBER 03000002 DALPASPR EQU X'0020' PASSWORD PROTECTION 03050002 DALINOUT EQU X'0021' INPUT ONLY OR OUTPUT ONLY 03100002 DALEXPDT EQU X'0022' EXPIRATION DATE 03150002 DALRETPD EQU X'0023' RETENTION PERIOD 03200002 DALDUMMY EQU X'0024' DUMMY ALLOCATION 03250002 DALFCBIM EQU X'0025' FCB IMAGE-ID 03300002 DALFCBAV EQU X'0026' FCB FORM ALIGNMENT,IMAGE VERIFY 03350002 DALQNAME EQU X'0027' QNAME ALLOCATION 03400002 DALTERM EQU X'0028' TERMINAL ALLOCATION 03450002 DALUCS EQU X'0029' UNIVERSAL CHARACTER SET 03500002 DALUFOLD EQU X'002A' UCS FOLD MODE 03550002 DALUVRFY EQU X'002B' UCS VERIFY CHARACTER SET 03600002 DALDCBDS EQU X'002C' DCB DSNAME REFERENCE 03650002 DALDCBDD EQU X'002D' DCB DDNAME REFERENCE 03700002 DALBFALN EQU X'002E' BUFFER ALIGNMENT 03750002 DALBFTEK EQU X'002F' BUFFERING TECHNIQUE 03800002 DALBLKSZ EQU X'0030' BLOCKSIZE 03850002 DALBUFIN EQU X'0031' NUMBER OF INPUT BUFFERS 03900002 DALBUFL EQU X'0032' BUFFER LENGTH 03950002 DALBUFMX EQU X'0033' MAXIMUM NUMBER OF BUFFERS 04000002 DALBUFNO EQU X'0034' NUMBER OF DCB BUFFERS 04050002 DALBUFOF EQU X'0035' BUFFER OFFSET 04100002 DALBUFOU EQU X'0036' NUMBER OF OUTPUT BUFFERS 04150002 DALBUFRQ EQU X'0037' NUMBER OF GET MACRO BUFFERS 04200002 DALBUFSZ EQU X'0038' LINE BUFFER SIZE 04250002 DALCODE EQU X'0039' PAPER TAPE CODE 04300002 DALCPRI EQU X'003A' SEND/RECEIVE PRIORITY 04350002 DALDEN EQU X'003B' TAPE DENSITY 04400002 DALDSORG EQU X'003C' DATA SET ORGANIZATION 04450002 DALEROPT EQU X'003D' ERROR OPTIONS 04500002 DALGNCP EQU X'003E' NO. OF GAM I/O BEFORE WAIT 04550002 DALINTVL EQU X'003F' POLLING INTERVAL 04600002 DALKYLEN EQU X'0040' DATA SET KEYS LENGTH 04650002 DALLIMCT EQU X'0041' SEARCH LIMIT 04700002 DALLRECL EQU X'0042' LOGICAL RECORD LENGTH 04750002 DALMODE EQU X'0043' CARD READER/PUNCH MODE 04800002 DALNCP EQU X'0044' NO. READ/WRITE BEFORE CHECK 04850002 DALOPTCD EQU X'0045' OPTIONAL SERVICES 04900002 DALPCIR EQU X'0046' RECEIVING PCI 04950002 DALPCIS EQU X'0047' SENDING PCI 05000002 DALPRTSP EQU X'0048' PRINTER LINE SPACING 05050002 DALRECFM EQU X'0049' RECORD FORMAT 05100002 DALRSRVF EQU X'004A' FIRST BUFFER RESERVE 05150002 DALRSRVS EQU X'004B' SECONDARY BUFFER RESERVE 05200002 DALSOWA EQU X'004C' TCAM USER WORK AREA SIZE 05250002 DALSTACK EQU X'004D' STACKER BIN 05300002 DALTHRSH EQU X'004E' MESSAGE QUEUE PERCENTAGE 05350002 DALTRTCH EQU X'004F' 7-TRACK RECORDING TECHNIQUE 05400002 DALPASSW EQU X'0050' PASSWORD 05450002 DALIPLTX EQU X'0051' IPL TEXT ID 05460002 DALPERMA EQU X'0052' PERMANENTLY ALLOCATED ATTRIB 05500002 DALCNVRT EQU X'0053' CONVERTIBLE ATTRIBUTE 05550002 DALDIAGN EQU X'0054' OPEN/CLOSE/EOV DIAGNOSTIC TRACE 05600002 DALRTDDN EQU X'0055' RETURN DDNAME 05650002 DALRTDSN EQU X'0056' RETURN DSNAME 05700002 DALRTORG EQU X'0057' RETURN D.S. ORGANIZATION 05750002 DALSUSER EQU X'0058' SYSOUT REMOTE USER 05800002 DALSHOLD EQU X'0059' SYSOUT HOLD QUEUE 05850002 DALFUNC EQU X'005A' D.S. TYPE FOR 3525 CARD DEVICE 05900002 DALFRID EQU X'005B' IMAGELIB MEMBER FOR SHARK 05950002 DALSSREQ EQU X'005C' SUBSYSTEM REQUEST 06000002 DALRTVOL EQU X'005D' RETURN VOLUME SERIAL 06020002 DALMSVGP EQU X'005E' MSVGP FOR 3330V @Y30LPPD 06030003 DALSSNM EQU X'005F' SUBSYSTEM NAME REQUEST @G29AN2F 06037003 DALSSPRM EQU X'0060' SUBSYSTEM PARAMETERS @G29AN2F 06044003 DALPROT EQU X'0061' RACF PROTECT FEATURE @G32HPPJ 06051003 DALSSATT EQU X'0062' SUBSYSTEM ATTRIBUTE @ZA25778 06055003 ********************************************************************** 06060003 * 06100002 * KEYS FOR CONCATENATION FUNCTION 06150003 * 06200002 ********************************************************************** 06250003 DCCDDNAM EQU X'0001' DDNAMES 06300002 DCCPERMC EQU X'0004' PERMANENTLY CONCATENATED 06350002 ********************************************************************** 06400003 * 06450002 * KEYS FOR DECONCATENATION FUNCTION 06500002 * 06550002 *********************************************************************** 06600002 DDCDDNAM EQU X'0001' DDNAME 06650002 *********************************************************************** 06700002 * 06750002 * KEYS FOR INFORMATION RETRIEVAL FUNCTION 06800002 * 06850002 *********************************************************************** 06900002 DINDDNAM EQU X'0001' DDNAME 06950002 DINDSNAM EQU X'0002' DSNAME 07000002 DINRTDDN EQU X'0004' RETURN DDNAME 07100002 DINRTDSN EQU X'0005' RETURN DSNAME 07150002 DINRTMEM EQU X'0006' RETURN MEMBER NAME 07200002 DINRTSTA EQU X'0007' RETURN DATA SET STATUS 07250002 DINRTNDP EQU X'0008' RETURN NORMAL DISPOSITION 07300002 DINRTCDP EQU X'0009' RETURN CONDITIONAL DISP 07350002 DINRTORG EQU X'000A' RETURN D.S. ORGANIZATION 07400002 DINRTLIM EQU X'000B' RETURN # TO NOT-IN-USE LIMIT 07450002 DINRTATT EQU X'000C' RETURN DYN. ALLOC ATTRIBUTES 07500002 DINRTLST EQU X'000D' RETURN LAST ENTRY INDICATION 07550002 DINRTTYP EQU X'000E' RETURN D.S. TYPE INDICATION 07600003 DINRELNO EQU X'000F' RELATIVE REQUEST NUMBER 07610002 ********************************************************************** 07650002 * 07700002 * KEYS FOR REMOVE IN-USE FUNCTION 07750002 * 07800002 ********************************************************************** 07850002 DRITCBAD EQU X'0001' TCB ADDRESS 07900002 DRICURNT EQU X'0002' CURRENT TASK OPTION 07950002 ********************************************************************** 08000002 * 08050002 * KEYS FOR DDNAME ALLOCATION FUNCTION 08100002 * 08150002 ********************************************************************** 08200002 DDNDDNAM EQU X'0001' DDNAME 08250002 DDNRTDUM EQU X'0002' RETURN DUMMY D.S. INDICATION 08300002 ********************************************************************** 08350002 * 08400002 * KEYS FOR UNALLOCATION FUNCTION 08450002 * 08500002 ********************************************************************** 08550002 DUNDDNAM EQU X'0001' DDNAME 08600002 DUNDSNAM EQU X'0002' DSNAME 08650002 DUNMEMBR EQU X'0003' MEMBER NAME 08700002 DUNOVDSP EQU X'0005' OVERRIDING DISPOSITION 08750002 DUNUNALC EQU X'0007' UNALLOC OPTION 08850002 DUNREMOV EQU X'0008' REMOVE OPTION 08900002 DUNOVSNH EQU X'000A' OVERRIDING SYSOUT NOHOLD 09000002 DUNOVCLS EQU X'0018' OVERRIDING SYSOUT CLASS 09002002 DUNOVSUS EQU X'0058' OVERRIDING SYSOUT REMOTE USER 09010002 DUNOVSHQ EQU X'0059' OVERRIDING SYSOUT HOLD QUEUE 09020002 MEND , */ 09050002 *%PLSS99K2 : ; 09100002 *DCL 09150002 * /******************************************************************/ 09200002 * /* */ 09250002 * /* KEYS FOR ALLOCATION FUNCTION */ 09300002 * /* */ 09350002 * /******************************************************************/ 09400002 * DALDDNAM BIT(16) CONSTANT('0001'X), /*DDNAME */ 09450002 * DALDSNAM BIT(16) CONSTANT('0002'X), /*DSNAME */ 09500002 * DALMEMBR BIT(16) CONSTANT('0003'X), /*MEMBER NAME */ 09550002 * DALSTATS BIT(16) CONSTANT('0004'X), /*DATA SET STATUS */ 09600002 * DALNDISP BIT(16) CONSTANT('0005'X), /*DATA SET NORMAL DISPOSITION */ 09650002 * DALCDISP BIT(16) CONSTANT('0006'X), /*DATA SET CONDITIONAL DISP */ 09700002 * DALTRK BIT(16) CONSTANT('0007'X), /*TRACK SPACE TYPE */ 09750002 * DALCYL BIT(16) CONSTANT('0008'X), /*CYLINDER SPACE TYPE */ 09800002 * DALBLKLN BIT(16) CONSTANT('0009'X), /*AVERAGE DATA BLOCK LENGTH */ 09850002 * DALPRIME BIT(16) CONSTANT('000A'X), /*PRIMARY SPACE QUANTITY */ 09900002 * DALSECND BIT(16) CONSTANT('000B'X), /*SECONDARY SPACE QUANTITY */ 09950002 * DALDIR BIT(16) CONSTANT('000C'X), /*DIRECTORY SPACE QUANTITY */ 10000002 * DALRLSE BIT(16) CONSTANT('000D'X), /*UNUSED SPACE RELEASE */ 10050002 * DALSPFRM BIT(16) CONSTANT('000E'X), /*CONTIG,MXIG,ALX SPACE FORMAT*/ 10100002 * DALROUND BIT(16) CONSTANT('000F'X), /*WHOLE CYLINDER (ROUND) SPACE*/ 10150002 * DALVLSER BIT(16) CONSTANT('0010'X), /*VOLUME SERIAL */ 10200002 * DALPRIVT BIT(16) CONSTANT('0011'X), /*PRIVATE VOLUME */ 10250002 * DALVLSEQ BIT(16) CONSTANT('0012'X), /*VOLUME SEQUENCE NUMBER */ 10300002 * DALVLCNT BIT(16) CONSTANT('0013'X), /*VOLUME COUNT */ 10350002 * DALVLRDS BIT(16) CONSTANT('0014'X), /*VOLUME REFERENCE TO DSNAME */ 10400002 * DALUNIT BIT(16) CONSTANT('0015'X), /*UNIT DESCRIPTION */ 10450002 * DALUNCNT BIT(16) CONSTANT('0016'X), /*UNIT COUNT */ 10500002 * DALPARAL BIT(16) CONSTANT('0017'X), /*PARALLEL MOUNT */ 10550002 * DALSYSOU BIT(16) CONSTANT('0018'X), /*SYSOUT */ 10600002 * DALSPGNM BIT(16) CONSTANT('0019'X), /*SYSOUT PROGRAM NAME */ 10650002 * DALSFMNO BIT(16) CONSTANT('001A'X), /*SYSOUT FORM NUMBER */ 10700002 * DALOUTLM BIT(16) CONSTANT('001B'X), /*OUTPUT LIMIT */ 10750002 * DALCLOSE BIT(16) CONSTANT('001C'X), /*UNALLOCATE AT CLOSE */ 10800002 * DALCOPYS BIT(16) CONSTANT('001D'X), /*SYSOUT COPIES */ 10850002 * DALLABEL BIT(16) CONSTANT('001E'X), /*LABEL TYPE */ 10900002 * DALDSSEQ BIT(16) CONSTANT('001F'X), /*DATA SET SEQUENCE NUMBER */ 10950002 * DALPASPR BIT(16) CONSTANT('0020'X), /*PASSWORD PROTECTION */ 11000002 * DALINOUT BIT(16) CONSTANT('0021'X), /*INPUT ONLY OR OUTPUT ONLY */ 11050002 * DALEXPDT BIT(16) CONSTANT('0022'X), /*EXPIRATION DATE */ 11100002 * DALRETPD BIT(16) CONSTANT('0023'X), /*RETENTION PERIOD */ 11150002 * DALDUMMY BIT(16) CONSTANT('0024'X), /*DUMMY ALLOCATION */ 11200002 * DALFCBIM BIT(16) CONSTANT('0025'X), /*FCB IMAGE-ID */ 11250002 * DALFCBAV BIT(16) CONSTANT('0026'X), /*FORM ALIGNMENT, IMAGE VERIFY*/ 11300002 * DALQNAME BIT(16) CONSTANT('0027'X), /*QNAME ALLOCATION */ 11350002 * DALTERM BIT(16) CONSTANT('0028'X), /*TERMINAL ALLOCATION */ 11400002 * DALUCS BIT(16) CONSTANT('0029'X), /*UNIVERSAL CHARACTER SET */ 11450002 * DALUFOLD BIT(16) CONSTANT('002A'X), /*UCS FOLD MODE */ 11500002 * DALUVRFY BIT(16) CONSTANT('002B'X), /*UCS VERIFY CHARACTER SET */ 11550002 * DALDCBDS BIT(16) CONSTANT('002C'X), /*DCB DSNAME REFERENCE */ 11600002 * DALDCBDD BIT(16) CONSTANT('002D'X), /*DCB DDNAME REFERENCE */ 11650002 * DALBFALN BIT(16) CONSTANT('002E'X), /*BUFFER ALIGNMENT */ 11700002 * DALBFTEK BIT(16) CONSTANT('002F'X), /*BUFFERING TECHNIQUE */ 11750002 * DALBLKSZ BIT(16) CONSTANT('0030'X), /*BLOCKSIZE */ 11800002 * DALBUFIN BIT(16) CONSTANT('0031'X), /*NUMBER OF INPUT BUFFERS */ 11850002 * DALBUFL BIT(16) CONSTANT('0032'X), /*BUFFER LENGTH */ 11900002 * DALBUFMX BIT(16) CONSTANT('0033'X), /*MAXIMUM NUMBER OF BUFFERS */ 11950002 * DALBUFNO BIT(16) CONSTANT('0034'X), /*NUMBER OF DCB BUFFERS */ 12000002 * DALBUFOF BIT(16) CONSTANT('0035'X), /*BUFFER OFFSET */ 12050002 * DALBUFOU BIT(16) CONSTANT('0036'X), /*NUMBER OF OUTPUT BUFFERS */ 12100002 * DALBUFRQ BIT(16) CONSTANT('0037'X), /*NUMBER OF GET MACRO BUFFERS */ 12150002 * DALBUFSZ BIT(16) CONSTANT('0038'X), /*LINE BUFFER SIZE */ 12200002 * DALCODE BIT(16) CONSTANT('0039'X), /*PAPER TAPE CODE */ 12250002 * DALCPRI BIT(16) CONSTANT('003A'X), /*SEND/RECEIVE PRIORITY */ 12300002 * DALDEN BIT(16) CONSTANT('003B'X), /*TAPE DENSITY */ 12350002 * DALDSORG BIT(16) CONSTANT('003C'X), /*DATA SET ORGANIZATION */ 12400002 * DALEROPT BIT(16) CONSTANT('003D'X), /*ERROR OPTIONS */ 12450002 * DALGNCP BIT(16) CONSTANT('003E'X), /*NO. OF GAM I/O BEFORE WAIT */ 12500002 * DALINTVL BIT(16) CONSTANT('003F'X), /*POLLING INTERVAL */ 12550002 * DALKYLEN BIT(16) CONSTANT('0040'X), /*DATA SET KEYS LENGTH */ 12600002 * DALLIMCT BIT(16) CONSTANT('0041'X), /*SEARCH LIMIT */ 12650002 * DALLRECL BIT(16) CONSTANT('0042'X), /*LOGICAL RECORD LENGTH */ 12700002 * DALMODE BIT(16) CONSTANT('0043'X), /*CARD READER/PUNCH MODE */ 12750002 * DALNCP BIT(16) CONSTANT('0044'X), /*NO. READ/WRITE BEFORE CHECK */ 12800002 * DALOPTCD BIT(16) CONSTANT('0045'X), /*OPTIONAL SERVICES */ 12850002 * DALPCIR BIT(16) CONSTANT('0046'X), /*RECEIVING PCI */ 12900002 * DALPCIS BIT(16) CONSTANT('0047'X), /*SENDING PCI */ 12950002 * DALPRTSP BIT(16) CONSTANT('0048'X), /*PRINTER LINE SPACING */ 13000002 * DALRECFM BIT(16) CONSTANT('0049'X), /*RECORD FORMAT */ 13050002 * DALRSRVF BIT(16) CONSTANT('004A'X), /*FIRST BUFFER RESERVE */ 13100002 * DALRSRVS BIT(16) CONSTANT('004B'X), /*SECONDARY BUFFER RESERVE */ 13150002 * DALSOWA BIT(16) CONSTANT('004C'X), /*TCAM USER WORK AREA SIZE */ 13200002 * DALSTACK BIT(16) CONSTANT('004D'X), /*STACKER BIN */ 13250002 * DALTHRSH BIT(16) CONSTANT('004E'X), /*MESSAGE QUEUE PERCENTAGE */ 13300002 * DALTRTCH BIT(16) CONSTANT('004F'X), /*7-TRACK RECORDING TECHNIQUE */ 13350002 * DALPASSW BIT(16) CONSTANT('0050'X), /*PASSWORD */ 13400002 * DALIPLTX BIT(16) CONSTANT('0051'X), /*IPL TEXT ID */ 13410002 * DALPERMA BIT(16) CONSTANT('0052'X), /*PERMANENTLY ALLOCATED ATTRIB*/ 13450002 * DALCNVRT BIT(16) CONSTANT('0053'X), /*CONVERTIBLE ATTRIBUTE */ 13500002 * DALDIAGN BIT(16) CONSTANT('0054'X), /*OPEN/CLOSE/EOV DIAGN. TRACE */ 13550002 * DALRTDDN BIT(16) CONSTANT('0055'X), /*RETURN DDNAME */ 13600002 * DALRTDSN BIT(16) CONSTANT('0056'X), /*RETURN DSNAME */ 13650002 * DALRTORG BIT(16) CONSTANT('0057'X), /*RETURN D.S. ORGANIZATION */ 13700002 * DALSUSER BIT(16) CONSTANT('0058'X), /*SYSOUT REMOTE USER */ 13750002 * DALSHOLD BIT(16) CONSTANT('0059'X), /*SYSOUT HOLD QUEUE */ 13800002 * DALFUNC BIT(16) CONSTANT('005A'X), /*3525 CARD DEVICE D.S. TYPE */ 13850002 * DALFRID BIT(16) CONSTANT('005B'X), /*IMAGELIB MEMBER FOR SHARK */ 13900002 * DALSSREQ BIT(16) CONSTANT('005C'X), /*SUBSYSTEM REQUEST */ 13950002 * DALRTVOL BIT(16) CONSTANT('005D'X), /*RETURN VOLUME SERIAL */ 13970003 * DALMSVGP BIT(16) CONSTANT('005E'X), /*MSVGP FOR 3330V @Y30LPPD*/ 13980003 * DALSSNM BIT(16) CONSTANT('005F'X), /*SUBSYSTEM NAME REQ @G29AN2F*/ 13984003 * DALSSPRM BIT(16) CONSTANT('0060'X), /*SUBSYSTEM PARAMETERS@G29AN2F*/ 13988003 * DALPROT BIT(16) CONSTANT('0061'X), /*RACF PROTECT @G32HPPJ*/ 13992003 * DALSSATT BIT(16) CONSTANT('0062'X); /*SUBSYSTEM ATTRIBUTE @ZA25778*/ 13994003 *DCL 14000002 * /******************************************************************/ 14050003 * /* */ 14100002 * /* KEYS FOR CONCATENATION FUNCTION */ 14150002 * /* */ 14200002 * /******************************************************************/ 14250002 * DCCDDNAM BIT(16) CONSTANT('0001'X), /*DDNAMES */ 14300002 * DCCPERMC BIT(16) CONSTANT('0004'X); /*PERMANENTLY CONCATENATED */ 14350002 *DCL 14400002 * /******************************************************************/ 14450002 * /* */ 14500002 * /* KEYS FOR DECONCATENATION FUNCTION */ 14550002 * /* */ 14600002 * /******************************************************************/ 14650002 * DDCDDNAM BIT(16) CONSTANT('0001'X); /*DDNAME */ 14700002 *DCL 14750002 * /******************************************************************/ 14800002 * /* */ 14850002 * /* KEYS FOR INFORMATION RETRIEVAL FUNCTION */ 14900002 * /* */ 14950002 * /******************************************************************/ 15000002 * DINDDNAM BIT(16) CONSTANT('0001'X), /*DDNAME */ 15050002 * DINDSNAM BIT(16) CONSTANT('0002'X), /*DSNAME */ 15100002 * DINRTDDN BIT(16) CONSTANT('0004'X), /*RETURN DDNAME */ 15200002 * DINRTDSN BIT(16) CONSTANT('0005'X), /*RETURN DSNAME */ 15250002 * DINRTMEM BIT(16) CONSTANT('0006'X), /*RETURN MEMBER NAME */ 15300002 * DINRTSTA BIT(16) CONSTANT('0007'X), /*RETURN DATA SET STATUS */ 15350002 * DINRTNDP BIT(16) CONSTANT('0008'X), /*RETURN NORMAL DISPOSITION */ 15400002 * DINRTCDP BIT(16) CONSTANT('0009'X), /*RETURN CONDITIONAL DISP */ 15450002 * DINRTORG BIT(16) CONSTANT('000A'X), /*RETURN D.S. ORGANIZATION */ 15500002 * DINRTLIM BIT(16) CONSTANT('000B'X), /*RETURN # TO NOT-IN-USE LIMIT*/ 15550002 * DINRTATT BIT(16) CONSTANT('000C'X), /*RETURN DYN. ALLOC ATTRIBUTES*/ 15600002 * DINRTLST BIT(16) CONSTANT('000D'X), /*RETURN LAST ENTRY INDICATION*/ 15650002 * DINRTTYP BIT(16) CONSTANT('000E'X), /*RETURN D.S. TYPE INDICATION */ 15700003 * DINRELNO BIT(16) CONSTANT('000F'X); /*RELATIVE REQUEST NUMBER */ 15710002 *DCL 15750002 * /******************************************************************/ 15800002 * /* */ 15850002 * /* KEYS FOR REMOVE IN-USE FUNCTION */ 15900002 * /* */ 15950002 * /******************************************************************/ 16000002 * DRITCBAD BIT(16) CONSTANT('0001'X), /*TCB ADDRESS */ 16050002 * DRICURNT BIT(16) CONSTANT('0002'X); /*CURRENT TASK OPTION */ 16100002 *DCL 16150002 * /******************************************************************/ 16200002 * /* */ 16250002 * /* KEYS FOR DDNAME ALLOCATION FUNCTION */ 16300002 * /* */ 16350002 * /******************************************************************/ 16400002 * DDNDDNAM BIT(16) CONSTANT('0001'X), /*DDNAME */ 16450002 * DDNRTDUM BIT(16) CONSTANT('0002'X); /*RETURN DUMMY D.S. INDICATION*/ 16500002 *DCL 16550002 * /******************************************************************/ 16600002 * /* */ 16650002 * /* KEYS FOR UNALLOCATION FUNCTION */ 16700002 * /* */ 16750002 * /******************************************************************/ 16800002 * DUNDDNAM BIT(16) CONSTANT('0001'X), /*DDNAME */ 16850002 * DUNDSNAM BIT(16) CONSTANT('0002'X), /*DSNAME */ 16900002 * DUNMEMBR BIT(16) CONSTANT('0003'X), /*MEMBER NAME */ 16950002 * DUNOVDSP BIT(16) CONSTANT('0005'X), /*OVERRIDING DISPOSITION */ 17000002 * DUNUNALC BIT(16) CONSTANT('0007'X), /*UNALLOC OPTION */ 17100002 * DUNREMOV BIT(16) CONSTANT('0008'X), /*REMOVE OPTION */ 17150002 * DUNOVSNH BIT(16) CONSTANT('000A'X), /*OVERRIDING SYSOUT NOHOLD */ 17250002 * DUNOVCLS BIT(16) CONSTANT('0018'X), /*OVERRIDING SYSOUT CLASS */ 17260002 * DUNOVSUS BIT(16) CONSTANT('0058'X), /*OVERIDING SYSOUT REMOTE USER*/ 17300002 * DUNOVSHQ BIT(16) CONSTANT('0059'X); /*OVERRIDING SYSOUT HOLD QUEUE*/ 17350002