* % GOTO TPLBSL; /* 00050020 MACRO 00100020 IKJTPL 00150020 .* A 0-999999 S20031 00200020 *********************************************************************** 00250020 * TEST PARAMETER LIST (TPL) IS GENERATED BY THE TMP FOR USE * 00300020 * WITH TEST PROGRAMS. * 00350020 *********************************************************************** 00400020 TPL DSECT 00450020 TPLCBUF DS A PTR TO COMMAND BUFFER 00500020 TPLUPT DS A PTR TO UPT 00550020 TPLPSCB DS A PTR TO PSCB 00600020 TPLECT DS A PTR TO ECT 00650020 TPLTBUF DS A PTR TO TEST COMMAND BUFFER 00700020 TPLCTCB DS A PTR TO ATTACHED CP TCB 00750020 TPLSTAI DS A PTR TO TMP STAI EXIT ROUTINE 00800020 TPLSPLS DS A PTR TO STAI PARAMETER LIST 00850020 TPLNECB DS A PTR TO ECB FOR ABENDING CP 00900020 TPLNTCB DS A PTR TO TCB FOR ABENDING CP 00950020 TPLMECB DS A PTR TO STOP/MODIFY ECB 01000020 TPLECBL EQU * TMP WAIT ECB LIST 01050020 TPLCECB DS A PTR TO ATTACHED CP ECB 01100020 TPLIECB DS A PTR TO TMP STAI ECB 01150020 TPLAECB DS A PTR TO TMP ATTN ECB - HIGH ORDER BIT ON 01200020 TPLRESV DS A RESERVED 01250020 **/ 01300020 MEND 01350020 * %TPLBSL: 01400020 * /* THE TPL MAPPING CAN BE PLACED AT THE BEGINNING, MIDDLE, */ 01450020 * /* OR END OF ANY BSL STRUCTURE THROUGH THE USE OF THE */ 01500020 * /* COMPILE TIME OPTIONS 'TPLSLEV' AND/OR 'TPLOPT1'. */ 01550020 * /* TPLSLEV - THIS IS THE CHARACTER ('2' TO '7') TO BE */ 01600020 * /* ASSIGNED TO THE HIGHEST LEVEL IF THE TPL IS */ 01650020 * /* NOT TO BE LOCATED AT THE BEGINNING OF THE */ 01700020 * /* STRUCTURE. */ 01750020 * /* TPLOPT1 - IF A CHARACTER STRING 'CONTINUE' IS ASSIGNED */ 01800020 * /* TO THIS OPTION, A SEMI-COLON IS NOT PLACED AT */ 01850020 * /* THE END OF THE STRUCTURE SO THAT ADDITIONAL */ 01900020 * /* STATEMENTS MAY BE ADDED TO THE STRUCTURE. */ 01950020 * /* IF NEITHER OPTION IS SPECIFIED, THE TPL MAPPING WILL */ 02000020 * /* DEFAULT TO A STRUCTURE OF ITS OWN. */ ; 02050020 * % DECLARE (X,Y,Z) FIXED /* COMPILE TIME VARIABLES */ ; 02100020 * % IF TPLSLEV='2' 02150020 * % THEN 02200020 * % X=2 /* SET FIRST LEVEL AS SPECIFIED */ ; 02250020 * % GOTO TPLBSL2; 02300020 * % IF TPLSLEV='3' 02350020 * % THEN 02400020 * % X=3 /* SET FIRST LEVEL AS SPECIFIED */ ; 02450020 * % GOTO TPLBSL2; 02500020 * % IF TPLSLEV='4' 02550020 * % THEN 02600020 * % X=4 /* SET FIRST LEVEL AS SPECIFIED */ ; 02650020 * % GOTO TPLBSL2; 02700020 * % IF TPLSLEV='5' 02750020 * % THEN 02800020 * % X=5 /* SET FIRST LEVEL AS SPECIFIED */ ; 02850020 * % GOTO TPLBSL2; 02900020 * % IF TPLSLEV='6' 02950020 * % THEN 03000020 * % X=6 /* SET FIRST LEVEL AS SPECIFIED */ ; 03050020 * % GOTO TPLBSL2; 03100020 * % IF TPLSLEV='7' 03150020 * % THEN 03200020 * % X=7 /* SET FIRST LEVEL AS SPECIFIED */ ; 03250020 * % GOTO TPLBSL2; 03300020 * %TPLBSL1: /* BEGIN A BSL STRUCTURE - 'TPLSLEV' NOT SPECIFIED */ ; 03350020 * % Y=2 /* USE THESE DEFAULT VALUES */ ; 03400020 * % Z=3 /* FOR THE LEVEL NUMBERS */ ; 03450020 * /*******************************************************************/ 03500020 * /* TEST PARAMETER LIST (TPL) IS GENERATED BY THE TMP FOR USE */ 03550020 * /* WITH TEST PROGRAMS. */ 03600020 * /*******************************************************************/ 03650020 * DECLARE 03700020 * 1 TPL BASED(TPLPTR), 03750020 * % GOTO TPLBSL3; 03800020 * %TPLBSL2: /* CONTINUE A BSL STRUCTURE USING LEVEL SPECIFIED */ ; 03850020 * % Y=X+1 /* SET SECOND LEVEL ONE HIGHER */ ; 03900020 * % Z=X+2 /* SET THIRD LEVEL TWO HIGHER */ ; 03950020 * X TPL, 04000020 * %TPLBSL3: /* THIS IS THE MAIN TPL STRUCTURE */ ; 04050020 * Y TPLCBUF PTR(31), /* PTR TO COMMAND BUFFER */ 04100020 * Y TPLUPT PTR(31), /* PTR TO UPT */ 04150020 * Y TPLPSCB PTR(31), /* PTR TO PSCB */ 04200020 * Y TPLECT PTR(31), /* PTR TO ECT */ 04250020 * Y TPLTBUF PTR(31), /* PTR TO TEST COMMAND BUFFER */ 04300020 * Y TPLCTCB PTR(31), /* PTR TO ATTACHED CP TCB */ 04350020 * Y TPLSTAI PTR(31), /* PTR TO TMP STAI EXIT RTN */ 04400020 * Y TPLSPLS PTR(31), /* PTR TO STAI PARAMETER LIST */ 04450020 * Y TPLNECB PTR(31), /* PTR TO ECB FOR ABENDING CP */ 04500020 * Y TPLNTCB PTR(31), /* PTR TO TCB FOR ABENDING CP */ 04550020 * Y TPLMECB PTR(31), /* PTR TO STOP/MODIFY ECB */ 04600020 * Y TPLECBL, /* TMP WAIT ECB LIST */ 04650020 * Z TPLCECB PTR(31), /* PTR TO ATTACHED CP ECB */ 04700020 * Z TPLIECB PTR(31), /* PTR TO TMP STAI ECB */ 04750020 * Z TPLLEND CHAR(1), /* HIGH ORDER BIT ON */ 04800020 * Z TPLAECB PTR(24), /* PTR TO TMP ATTN ECB */ 04850020 * % IF TPLOPT1='CONTINUE' 04900020 * % THEN 04950020 * % GOTO TPLBSL4; 05000020 * % ELSE 05050020 * % GOTO TPLBSL5; 05100020 * %TPLBSL4: /* STRUCTURE IS TO BE CONTINUED - DO NOT CLOSE */ ; 05150020 * Y TPLRESV PTR(31), /* RESERVED */ 05200020 * % GOTO TPLBSL6; 05250020 * %TPLBSL5: /* STRUCTURE IS COMPLETED - USE SEMI-COLON */ ; 05300020 * Y TPLRESV PTR(31); /* RESERVED */ 05350020 * 05400020 * %TPLBSL6: /* DEACTIVATE THE COMPILE TIME VARIABLES */ ; 05450020 * % DEACTIVATE X,Y,Z; 05500020