* %GOTO DACBBSL; /* 00800021 MACRO 01600021 IKJDACB 02400021 *********************************************************************** 03200021 * THE DAIRACB IS USED TO PROVIDE DCB PARAMETERS TO THE DYNAMIC * 04000021 * ALLOCATION INTERFACE ROUTINE. THE ATTRIBUTES ARE PLACED INTO * 04800021 * AN ATRCB AND RETAINED ON A CHAIN UNTIL REFERED TO ON AN ALLOCATE CMD 05600021 *********************************************************************** 06400021 DAIRACB DSECT 07200021 DS 0D 08000000 DS CL8 RESERVED 08800021 DAIMASK DS CL8 INOUT-OUTIN OPTION 09600021 DAILABEL EQU DAIMASK+6 SPECIFY OUTIN OR INOUT YM1841 10400002 DAIINOUT EQU X'80' INOUT 11200002 DAIOUTIN EQU X'40' OUTIN 12000021 DS CL3 RESERVED 12800021 DAIEXPDT DS CL3 DATA SET EXPIRATION DATE 13600021 DS CL2 RESERVED 14400021 DAIBUFNO DS CL1 NO. OF BUFFERS REQUIRED 15200021 DAIBFTEK DS CL1 BFTEK/BFALN 16000021 DAIBFALN EQU DAIBFTEK 16800021 DAISIMPL EQU X'40' SIMPLE BUFFERING "S" 17600021 DAIAUTO EQU X'60' AUTOMATIC RECORD AREA CONS'T "A" 18400021 DAIRECRD EQU X'20' RECORD BUFFERING "R" 19200021 DAIEXC EQU X'10' EXCHANGE BUFFERING "E" 20000021 DAIDOUBL EQU X'02' DOUBLE WORD BOUNDARY "D" 20800002 DAIFULL EQU X'01' FULL WORD BOUNDARY "F" 21600021 DAIBUFL DS CL2 BUFFER LENGTH 22400021 DAIEROPT DS CL1 ERROR OPTION 23200021 DAIACEPT EQU X'80' ACCEPT 24000021 DAISKIP EQU X'40' SKIP 24800021 DAIABNOR EQU X'20' ABNORMAL END OF TASK 25600021 DAIKEYLE DS CL1 KEY LENGTH 26400021 DS CL6 RESERVED 27200021 DAIRECFM DS CL1 RECORD FORMAT 28000021 DAIFIXED EQU X'80' FIXED "F" 28800021 DAIVARIB EQU X'40' VARIABLE "V" 29600021 DAIUNDEF EQU X'C0' UNDEFINED "U" 30400021 DAITRKOV EQU X'20' TRACK OVERFLOW "T" 31200021 DAIBLOCK EQU X'10' BLOCKED "B" 32000021 DAISTAND EQU X'08' STANDARD BLOCKS "S" 32800021 DAIASA EQU X'04' ASA PRINTER CHARS. "A" 33600021 DAIMACH EQU X'02' MACH.CNTRL.CHAR. "M" 35200021 DAIOPTCD DS CL1 OPTION CODES 36800021 DAIWRTCK EQU X'80' WRITE VALIDITY CHECK "W" 37600021 DAISCHED EQU X'20' CHAINED SCHEDULING "C" 38400021 DAIANSI EQU X'08' ANSI TRANSLATE "Q" 38450021 DAIUSERT EQU X'02' USER TOTALING "T" 39200021 DAIBLKSI DS CL2 MAXIMUM BLOCK SIZE 40000021 DAILRECL DS CL2 LOGICAL RECORD LENGTH 40800021 DAINCP DS CL1 MAX # OF READ/WRITE MACROS BEFORE CHECK 41600021 DS CL4 RESERVED 42400021 **/ 43200021 MEND 44000021 %DACBBSL: ; 44800021 /********************************************************************/ 45600021 /* THE DAIRACB IS USED TO PROVIDE DCB PARAMETERS TO THE DYNAMIC */ 46400021 /* ALLOCATION INTERFACE ROUTINE. THE ATTRIBUTES ARE PLACED INTO */ 47200021 /* AN ATRCB AND RETAINED ON A CHAIN UNTIL REFERED TO ON AN ALLOCATE */ 48000021 /* CMD. */ 48800021 /********************************************************************/ 49600021 DECLARE 50400021 1 DAIRACB BASED(DACBPTR), 51200021 2 * CHAR(8), /* RESERVED */ 51250021 2 DAIMASK CHAR(8), /* INOUT-OUTIN */ 52000021 3 * CHAR(6), /* RESERVED YM1841*/ 52800002 3 DAILABEL CHAR(1), /* OPTION */ 53600021 4 DAIINOUT BIT(1), /* INOUT */ 54400021 4 DAIOUTIN BIT(1), /* OUTIN */ 55200021 3 * CHAR(1), /* RESERVED YM1841*/ 55250102 2 * CHAR(3), /* RESERVED */ 56000021 2 DAIEXPDT CHAR(3), /* DATA SET EXPIRATION DATE*/ 56800000 4 DAIYEAR PTR(8), /* EXPIRATION YEAR */ 56900021 4 DAIDAY FIXED(15), /* EXPIRATION DAY */ 56950021 2 * CHAR(2), /* RESERVED */ 57600021 2 DAIBUFNO CHAR(1), /* NO. OF BUFFERS */ 58400021 2 DAIBFTEK CHAR(1), /* BFTEK/BFALN */ 59200021 3 DAIBFALN CHAR(1), 60000021 4 * BIT(1), 60800021 4 DAIAUTO BIT(2), /* AUTO RECORD AREA "A"*/ 61600021 5 DAISIMPL BIT(1), /* SIMPLE BUFFERING "S"*/ 62400021 5 DAIRECRD BIT(1), /* RECORD BUFFERING "R"*/ 63200021 4 DAIEXC BIT(1), /* EXCHANGE BUFFERING "E"*/ 64000021 4 * BIT(2), 64800021 4 DAIDOUBL BIT(1), /* DOUBLE WORD BDY "D"*/ 65600021 4 DAIFULL BIT(1), /* FULL WORD BDY "F"*/ 66400021 2 DAIBUFL FIXED(15), /* BUFFER LENGTH */ 67200021 2 DAIEROPT CHAR(1), /* ERROR OPTION */ 68000021 3 DAIACEPT BIT(1), /* ACCEPT "ACC"*/ 68800021 3 DAISKIP BIT(1), /* SKIP "SKP"*/ 69600021 3 DAIABNOR BIT(1), /* ABNORMAL EOT "ABE"*/ 70400021 2 DAIKEYLE CHAR(1), /* KEY LENGTH */ 71200021 2 * CHAR(6), /* RESERVED */ 72000021 2 DAIRECFM CHAR(1), /* RECORD FORMAT */ 72800021 3 DAIUNDEF BIT(2), /* UNDEFINED "U"*/ 73600021 4 DAIFIXED BIT(1), /* FIXED "F"*/ 74400021 4 DAIVARIB BIT(1), /* VARIABLE "V"*/ 75200021 3 DAITRKOV BIT(1), /* TRACK OVERFLOW "T"*/ 76000021 3 DAIBLOCK BIT(1), /* BLOCKED "B"*/ 76800021 3 DAISTAND BIT(1), /* STANDARD BLOCKS "S"*/ 77600021 3 DAIASA BIT(1), /* ASA PRINTER CHARS "A"*/ 78400021 3 DAIMACH BIT(1), /* MACH CNTRL CHAR "M"*/ 80000021 2 DAIOPTCD CHAR(1), /* OPTION CODES */ 81600021 3 DAIWRTCK BIT(1), /* WRT VALIDITY CK "W"*/ 82400021 3 * BIT(1), 83200021 3 DAISCHED BIT(1), /* CHAIN SCHEDULING "C"*/ 84000021 3 * BIT(1), 84800021 3 DAIANSI BIT(1), /* ANSI TRANSLATE "Q"*/ 84850021 3 * BIT(1), 84950021 3 DAIUSERT BIT(1), /* USER TOTALING "T"*/ 85600021 2 DAIBLKSI FIXED(15), /* MAXIMUM BLOCK SIZE */ 86400021 2 DAILRECL FIXED(15), /* LOGICAL RECORD LENGTH */ 87200021 2 DAINCP CHAR(1), /* MAX# OF READ/WRITE MAC- */ 88000021 /* ROS BEFORE CHECK */ 88800021 2 * CHAR(4); /* RESERVED */ 89600021