* %GOTO PLSCUR; /* BINLINGUAL HEADER 01000000 MACRO 02000000 TCURD 03000000 * 04000000 * ASSEMBLER VERSION NOT SUPPORTED 05000000 * 06000000 MEND */ 07000000 *%PLSCUR:; 08000000 */* */ 09000000 */* CLEANUP REQUEST ELEMENT */ 10000000 */* */ 11000000 DCL 1 IEDCUREQ BDY(WORD) BASED(RCUR), 12000000 2 CURKEY CHAR(1), /*KEY FIELD */ 13000000 2 CURQCB PTR(24), /*QCB ADDRESS */ 14000000 2 CURPRI CHAR(1), /*PRIORITY FIELD */ 15000000 2 CURELEM PTR(24), /*PIU ADDRESS SAVE FIELD */ 16000000 2 CURLINK PTR(31), /*LINK FIELD */ 17000000 2 CURTOTIN PTR(15), /*TOTE TTCIN FIELD */ 18000000 3 CURFLG1 CHAR(1), /*FLAG FIELD */ 19000000 3 CURSWCH CHAR(1), /*SWITCH FIELD */ 20000000 2 CURFLG2 CHAR(1), /*FLAG FIELD */ 21000000 3 CURF0FIN BIT(1), /*FINIS SEARCH FID0 RESPONSE CHAIN*/ 22000000 3 CURF1SEQ BIT(1), /*FINIS SEARCH FID1 SEQUENCED 23000000 RESPONSE CHAIN */ 24000000 3 CURF1ID BIT(1), /*FINIS SEARCH FID1 ID RESPONSE CH*/ 25000000 3 CURENDCH BIT(1), /*END OF CHAIN INDICATOR */ 26000000 3 * BIT(2), /*UNUSED */ 27000000 3 CURATTCH BIT(1), /*PIU ATTACHED INDICATOR */ 28000000 3 CURTERM BIT(1), /*FORCD TERMINATE CLEANUP @YM08991*/ 29000010 2 CURFLG3 CHAR(1), /*FLAG FIELD */ 30000000 3 CUREPOST BIT(1), /*CU REPOST REQUEST */ 31000000 3 CURTOTEP BIT(1), /*TOTE POST REQUEST */ 32000000 3 CURFIRST BIT(1), /*FIRST TIME SWITCH */ 33000000 3 CURNCURE BIT(1), /*REPOST REQUEST TO IEDNCU @YM07310*/34000000 3 CURDIAL BIT(1), /*RVT SCAN FOR DIAL DONE @YM08536*/34200000 3 * BIT(3), /*UNUSED */ 34500000 2 CURPIUCT FIXED(15), /*PIUS POSTED COUNTER */ 35000000 2 CURFAILT FIXED(15), /*FAILING RESOURCE TTCIN */ 36000000 2 CURTTCIN FIXED(15), /*TTCIN OF RESOURCE TO CLEAN 37000000 UP */ 38000000 2 CURNXTRC FIXED(15), /*NEXT HIGHER RESOURCE TTCIN */ 39000000 2 CURNEWBF PTR(31), /*NEW BUFFER WAIT CHAIN */ 40000000 2 CURTOTBF PTR(31), /*TOTE POST QUEUE */ 41000000 2 CURPIUPC PTR(31), /*PIUS FOR PATH CONTROL */ 42000000 2 CUROPCE PTR(31), /*POINTER TO DEACT OPCE */ 43000000 2 CURTRM PTR(31); /*TRM ADDRESS OF EFFECTED RESOURCE*/ 44000000 */* */ 45000000 */* CURSWCH VALUES */ 46000000 */* */ 47000000 DCL CURFDACT BIT(8) CONSTANT('37'X); /*FORCE DEACTIVATE REQUEST */ 48000000 DCL CURCINOP BIT(8) CONSTANT('38'X); /*CLEANUP REQUEST FOR CHAN INOP*/ 49000000 DCL CURCUREQ BIT(8) CONSTANT('39'X); /*CLEANUP REQUEST */ 50000000 */* */ 51000000 */* CURFLG1 VALUES */ 52000000 */* */ 53000000 DCL CURC0 BIT(8) CONSTANT('0D'X);/*USED WITH PRILOFLG - TO REDRIVE 54000000 IGCC110D */ 55000000 DCL CURFG BIT(8) CONSTANT('0E'X);/*USED WITH PRILOFLG - TO RETURN 56000000 CLEANUP REQUEST ELEMENT TO 57000000 IGCFG10D FROM IEDNCU */ 58000000