* %GOTO DPB1CBSL; /* 03000002 MACRO 06000000 IKJDAP1C 09000000 .* C 782000,810000 C99236 09050001 .* A 361500,390500,781600-781700,810100-810500 C99236 09100001 DAPB1C DSECT 12000000 *********************************************************************** 15000000 * THIS OPERATION CODE REQUESTS ALLOCATION TO THE TERMINAL. * 18000001 *********************************************************************** 21000000 DA1CCD DS CL2 DAIR ENTRY CODE 24000000 DA1CFLG DS X FUNCTIONS TO BE PERFORMED WHEN RET CODE IS 0 27000000 DS X 30000000 DA1CDARC DS H DYN ALLOC RETURN CODE 33000000 DS CL1 RESERVED 36000000 DA1CCTL DS CL1 CONTROL FIELD 36050000 DA1CPERM EQU X'08' PERMANENTLY ALLOCATE BIT 36100000 DA1CATRL EQU X'02' ATTRIBUTE LIST SUPPLIED C99236 36150001 DA1CDDN DS CL8 DDNAME TO BE SEARCHED IN DSE 39000000 DA1CALN DS CL8 ATTR-LIST-NAME C99236 39050001 * */ 42000000 MEND 45000000 * %DPB1CBSL: ; 48000000 * DECLARE 51000000 * 1 DAPB1C BASED(DAPB1PTR), 54000000 * /*******************************************************************/ 57000002 * /* THIS OPERATION CODE REQUESTS ALLOCATION TO THE TERMINAL. */ 57050002 * /*******************************************************************/ 63000002 * 2 DA1CCD CHAR(2), /* DAIR ENTRY CODE */ 66000000 * 2 DA1CFLG CHAR(2), /* FUNCTIONS PERFORMED WHEN 69000002 * RETURN CODE= 0 */ 72000000 * 2 DA1CDARC FIXED(15), /* DYN ALLOC */ 75000002 * 2 * CHAR(1), /* RESERVED */ 78000000 * 2 DA1CCTL CHAR(1), /* CONTROL BYTE M00582*/ 78050000 * 3 * BIT(4), /* RESERVED M00582*/ 78100000 * 3 DA1CPERM BIT(1), /* PERMANENTLY ALLOCATE M00582*/ 78150000 * 3 * BIT(1), /* RESERVED C99236*/ 78160001 * 3 DA1CATRL BIT(1), /* ATTR LIST SUPPLIED C99236*/ 78170001 * 3 * BIT(1), /* RESERVED C99236*/ 78200001 * 2 DA1CDDN CHAR(8), /* DDNAME TO BE SEARCHED C99236 81000001 * IN DSE C99236*/ 81010001 * 2 DA1CALN CHAR(8); /* ATTR-LIST-NAME C99236*/ 81050001 * 84000000