* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTDVCRC 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT FOR THE USER (SNA ONLY) 00300000 * CONTAINING THE PROCESS MODULES NEEDED TO BE USED 00350000 * ALONG WITH THE NECESSARY QUALIFIERS SO AS THE PROPER 00400000 * FUNCTIONS ARE SELECTED AS PER DEVICE TYPE USED 00450000 * NOTE -- SEE FUNCT MACRO FOR QUALIFYING ARGUMENTS 00500000 * 00550000 *01* MODULE-SIZE = 64-BYTES 00600000 * 00650000 *01* PROCESSOR = ASSEMBLER 00700000 * 00750000 *01* SYSTEMS-WHERE-USED = OS/VS1, OS/VS2 00800000 * 00850000 *01* HOW-USED = AS-FOLLOWS: 00900000 * 00950000 * THE SKELETEL DVT WILL BE SCANNED BY ISTOCCMD AND 01000000 * THE CORRECT PROCESSES RETAINED BY MATCHING FUNCTION 01050000 * QUALIFIERS WITH RESOURCE DEFINITION TABLE ENTRY INFO 01100000 * 01150000 *01* INPUT-OUTPUT = NONE 01200000 * 01250000 *01* CHANGE-ACTIVITY = 01300000 * APAR OZ16994 @ZA16994 01310000 * 01350000 **** END OF SPECIFICATIONS ***/ 01400000 ISTDVCRC STRTMODE , DVT FOR RECORD MODE (VS2) 01450000 *A-000000-999999 XL03HBS 01500000 * 01550000 *********************************************************************** 01600000 * 01650000 IRSNDOUT DVT 01700000 * 01750000 FUNCT PROC=ISTRCC22 01800000 FUNCT PROC=ISTDCC02 01850000 * 01900000 IRRCVOUT DVT 01950000 * 02000000 FUNCT PROC=ISTRCC21 02050000 FUNCT PROC=ISTDCC02 02100000 * 02150000 IRRCVIN DVT 02200000 * 02250000 FUNCT PROC=ISTRCC51 02300000 FUNCT PROC=ISTDCC32 02350000 * 02400000 IRSENDIN DVT 02450000 * 02500000 FUNCT PROC=ISTRCC53 02550000 FUNCT PROC=ISTDCC32 02600000 * 02650000 IRSYNFDB DVT 02700000 * 02750000 FUNCT PROC=ISTRCC52 02800000 FUNCT PROC=ISTDCC32 02850000 * 02900000 IRASYFDB DVT 02950000 * 03000000 FUNCT PROC=ISTRCC54 03050000 FUNCT PROC=ISTDCC32 03100000 * 03150000 IRFINISH DVT , FEEDBACK FINISH @X04BHDA 03200000 * 03250000 FUNCT PROC=ISTDCC32 @X04BHDA 03300000 * 03350000 ISTCLOBP DVT , START C L OUTBOUND PROCESSING 03400000 * 03450000 FUNCT PROC=ISTDCC00 03500000 FUNCT PROC=ISTDCC02 03550000 * 03600000 IRRSTOUT DVT 03650000 * 03700000 FUNCT PROC=ISTRCC23 03750000 FUNCT PROC=ISTDCC02 03800000 * 03850000 IRCLROUT DVT 03900000 * 03950000 FUNCT PROC=ISTRCC80 04000000 * 04050000 *********************************************************************** 04100000 * 04150000 ISTCLIBP DVT , START C L INBOUND PROCESSING 04200000 * 04250000 FUNCT PROC=ISTRCC30 04300000 FUNCT PROC=ISTRCC51 @X04BHDA 04350000 FUNCT PROC=ISTRCC52 @X04BHDA 04400000 FUNCT PROC=ISTDCC32 04450000 * 04500000 IRCLRIN DVT 04550000 * 04600000 FUNCT PROC=ISTRCC81 04650000 * 04700000 *********************************************************************** 04750000 * 04800000 ISTTPOBP DVT , OUTBOUND- CONTROL MODE 04850000 SPACE 04900000 * REMOTE DEVICE SCHEDULER 04950000 SPACE 05000000 FUNCT PROC=ISTZAF1B,EXCEPT=32XX 05050000 FUNCT PROC=ISTZAF0B,ATTACH=R,DVC=32XX 05100000 FUNCT PROC=ISTZAF0A,ATTACH=L,DVC=32XX 05150000 SPACE 05200000 * LCCW TO BTU TRANSLATOR 05250000 SPACE 05300000 FUNCT PROC=ISTZBF0B,EXCEPT=32XX 05350069 FUNCT PROC=ISTZBF0L,ATTACH=L,DVC=32XX 05400000 FUNCT PROC=ISTZBF0B,ATTACH=R,DVC=32XX 05410069 SPACE 05450000 * DIALOG SCHEDULER 05500000 SPACE 05550000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 05600000 FUNCT PROC=ISTZCFAI,ATTACH=R,DVC=32XX 05650000 FUNCT PROC=ISTZCF0A,ATTACH=L,DVC=32XX 05700000 SPACE 05750000 * SESSION SCHEDULER 05800000 SPACE 05850000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 05900000 FUNCT PROC=ISTZBFNB,ATTACH=R,DVC=32XX 05950000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 06000000 SPACE 06050000 * READ 06100000 SPACE 06150000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 06200000 FUNCT PROC=ISTZBFAR,ATTACH=R,DVC=32XX 06250000 FUNCT PROC=ISTZBFAL,ATTACH=L,DVC=32XX 06300000 SPACE 06350000 * WRITE 06400000 SPACE 06450000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 06500000 FUNCT PROC=ISTZBFBR,ATTACH=R,DVC=32XX 06550000 FUNCT PROC=ISTZBFBA,ATTACH=L,DVC=32XX 06600000 SPACE 06650000 * WRITE SOH 06700000 SPACE 06750000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 06800069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 06850000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 06860069 SPACE 06900000 * COPY 06950000 SPACE 07000000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 07050000 FUNCT PROC=ISTZBFDR,ATTACH=R,DVC=32XX 07100000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 07150000 SPACE 07200000 * WRITE CONTROL 07250000 SPACE 07300000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 07350069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 07400000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 07410069 SPACE 07450000 * RESET 07500000 SPACE 07550000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 07600000 FUNCT PROC=ISTZBFFB,ATTACH=R,DVC=32XX 07650000 FUNCT PROC=ISTZBFFA,ATTACH=L,DVC=32XX 07700000 SPACE 07750000 * INVALID CONTROL 07800000 SPACE 07850000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 07900069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 07950000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 07960069 SPACE 08000000 * CONTACT 08050000 SPACE 08100000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 08150069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 08200069 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 08210069 SPACE 08250000 * DISCONNECT 08300000 SPACE 08350000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 08400000 FUNCT PROC=ISTZBFIB,ATTACH=R,DVC=32XX 08450000 FUNCT PROC=ISTZBFIA,ATTACH=L,DVC=32XX 08500000 SPACE 08550000 * TEST LCCW 08600000 SPACE 08650000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 08700069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 08750000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 08760069 SPACE 08800000 * PREEMPT 08850000 SPACE 08900000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 08950000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @X04BHDA 09000000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX @X04BHDA 09050000 SPACE 09100000 * RESTORE 09150000 SPACE 09200000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 09250000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX @X04BHDA 09300000 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX @X04BHDA 09350000 SPACE 09400000 * INVALID COMMAND 09450000 SPACE 09500000 FUNCT PROC=ISTZBFX0,EXCEPT=32XX 09550069 FUNCT PROC=ISTZBFXA,ATTACH=L,DVC=32XX 09600000 FUNCT PROC=ISTZBFX0,ATTACH=R,DVC=32XX 09610069 SPACE 09650000 * SEND LCCW 09700000 SPACE 09750000 FUNCT PROC=ISTZBFID,DVC=LU01,ATTACH=R @X50BHDA 09800000 FUNCT PROC=ISTZBFIF,DVC=LU01,ATTACH=L @X50BHDA 09850000 FUNCT PROC=ISTZDFL0,DVC=32XX 09900000 SPACE 09950000 * PREEMPT COMPLETION 10000000 SPACE 10050000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 10100000 FUNCT PROC=ISTZIFX0,DVC=32XX @X04BHDA 10150000 SPACE 10200000 * RESET CLEANUP (PHASE 1) 10250000 SPACE 10300000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 10350000 FUNCT PROC=ISTZIFSB,DVC=32XX 10400000 SPACE 10450000 * RESET CLEANUP (PHASE 3) 10500000 SPACE 10550000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 10600000 FUNCT PROC=ISTZIFUB,DVC=32XX @ZA16994 10650000 SPACE 10750000 * RESET CLEANUP (PHASE 4) 10800000 SPACE 10850000 FUNCT PROC=ISTZDFL0,EXCEPT=32XX 10900000 FUNCT PROC=ISTZIFVB,DVC=32XX 10950000 SPACE 11000000 * SESSION CONTROL FOR TPIOS 11050069 SPACE 11100000 FUNCT PROC=ISTZBFSC,EXCEPT=32XX 11150000 FUNCT PROC=ISTZDFL0,DVC=32XX 11200000 ISTTPIBP DVT , INBOUND - CONTROL MODE 11250000 SPACE 11300000 * PIU ROUTER 11350000 SPACE 11400000 FUNCT PROC=ISTZIF1B,EXCEPT=32XX 11450000 SPACE 11500000 * FID1 PROCESSOR 11550000 SPACE 11600000 FUNCT PROC=ISTZIFID,EXCEPT=32XX 11650000 SPACE 11700000 * SESSION CONTROL 11750000 SPACE 11800000 FUNCT PROC=ISTZIFSC,EXCEPT=32XX 11850000 SPACE 11900000 * SEGMENTING PROCESSOR @X50BHDA 11950000 SPACE 12000000 FUNCT PROC=ISTZIFSG,EXCEPT=32XX @X50BHDA 12050000 SPACE 12100000 * REQUEST COMPLETION CONTROL 12150000 SPACE 12200000 FUNCT PROC=ISTZIF0B,ATTACH=R,DVC=32XX 12250000 FUNCT PROC=ISTZGF0A,ATTACH=L,DVC=32XX 12300000 SPACE 12350000 * DIALOG SCHED 12400000 SPACE 12450000 FUNCT PROC=ISTZCFCI,DVC=32XX 12500000 SPACE 12550000 * STATUS CONTROLLER 12600000 SPACE 12650000 FUNCT PROC=ISTZJF0B,ATTACH=R,DVC=32XX 12700000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 12750000 SPACE 12800000 * NEGATIVE RESPONSE TO POLLING 12850000 SPACE 12900000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 12950000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13000000 SPACE 13050000 * NRP RESET PHASE 13100000 SPACE 13150000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 13200000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13250000 SPACE 13300000 * NRP INVITE PHASE 13350000 SPACE 13400000 FUNCT PROC=ISTZIFX0,ATTACH=R,DVC=32XX 13450000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13500000 SPACE 13550000 * RESCHEDULE STATE 13600000 SPACE 13650000 FUNCT PROC=ISTZIFAB,ATTACH=R,DVC=32XX 13700000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 13750000 SPACE 13800000 * PREEMPT PENDING STATE 13850000 SPACE 13900000 FUNCT PROC=ISTZDFL0,DVC=32XX @X04BHDA 13950000 SPACE 14000000 * READ COMPLETION 14050000 SPACE 14100000 FUNCT PROC=ISTZIFKB,ATTACH=R,DVC=32XX 14150000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14200000 SPACE 14250000 * INVITE COMPLETION 14300000 SPACE 14350000 FUNCT PROC=ISTZIFKB,ATTACH=R,DVC=32XX 14400000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14450000 SPACE 14500000 * WRITE COMPLETION 14550000 SPACE 14600000 FUNCT PROC=ISTZIFMB,ATTACH=R,DVC=32XX 14650000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 14700000 SPACE 14750000 * CONTACT DISCONNECT COMPLETION 14800000 SPACE 14850000 FUNCT PROC=ISTZIFOB,ATTACH=R,DVC=32XX 14900000 FUNCT PROC=ISTZIFOA,ATTACH=L,DVC=32XX 14950000 SPACE 15000000 * RESET COMMAND COMPLETION 15050000 SPACE 15100000 FUNCT PROC=ISTZIFNB,ATTACH=R,DVC=32XX 15150000 FUNCT PROC=ISTZIFNA,ATTACH=L,DVC=32XX 15200000 SPACE 15250000 * TEST COMPLETION COMMAND 15300000 SPACE 15350000 FUNCT PROC=ISTZIFX0,DVC=32XX 15400000 SPACE 15450000 * CONTROL COMMAND 15500000 SPACE 15550000 FUNCT PROC=ISTZGFBB,ATTACH=R,DVC=32XX 15600000 FUNCT PROC=ISTZIFX0,ATTACH=L,DVC=32XX 15650000 SPACE 15700000 * PREEMPT COMPLETION 15750000 SPACE 15800000 FUNCT PROC=ISTZIFX0,DVC=32XX @X04BHDA 15850000 SPACE 15900000 * OUTPUT COMPLETION STATUS ANALYSIS 15950000 SPACE 16000000 FUNCT PROC=ISTZIFEB,ATTACH=R,DVC=32XX 16050000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16100000 SPACE 16150000 * OUTPUT ERROR STATUS ANALYSIS 16200000 SPACE 16250000 FUNCT PROC=ISTZIFDB,ATTACH=R,DVC=32XX 16300000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16350000 SPACE 16400000 * INPUT COMPLETION STATUS ANALYSIS 16450000 SPACE 16500000 FUNCT PROC=ISTZIFCI,ATTACH=R,DVC=32XX 16550000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16600000 SPACE 16650000 * INPUT ERROR STATUS ANALYSIS 16700000 SPACE 16750000 FUNCT PROC=ISTZIFBI,ATTACH=R,DVC=32XX 16800000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 16850000 SPACE 16900000 * CONTACT DISCONNECT COMPLETION STATUS ANALYSIS 16950000 SPACE 17000000 FUNCT PROC=ISTZIFHB,ATTACH=R,DVC=32XX 17050000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 17100000 SPACE 17150000 * CONTACT ERROR ANALYSIS 17200000 SPACE 17250000 FUNCT PROC=ISTZIFGB,ATTACH=R,DVC=32XX 17300000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 17350000 SPACE 17400000 * COMMAND RESET COMPLETION 17450000 SPACE 17500000 FUNCT PROC=ISTZIFAB,ATTACH=R,DVC=32XX 17550000 FUNCT PROC=ISTZIFAA,ATTACH=L,DVC=32XX 17600000 SPACE 17650000 * LOGICAL ERROR RECOVERY 17700000 SPACE 17750000 FUNCT PROC=ISTZIFIB,ATTACH=R,DVC=32XX 17800000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 17850000 SPACE 17900000 * INVALID DEVICE COMMAND 17950000 SPACE 18000000 FUNCT PROC=ISTZIFX0,DVC=32XX 18050000 SPACE 18100000 * RESET CLEANUP (PHASE 1) 18150000 SPACE 18200000 FUNCT PROC=ISTZIFSB,ATTACH=R,DVC=32XX 18250000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 18300000 SPACE 18350000 * RESET CLEANUP (PHASE 2) 18400000 SPACE 18450000 FUNCT PROC=ISTZIFTB,DVC=32XX 18500000 SPACE 18550000 * DIAL DISCONNECT 18600000 SPACE 18650000 FUNCT PROC=ISTZKFBB,ATTACH=R,DVC=32XX 18700000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 18750000 SPACE 18800000 * MANUAL DIAL 18850000 SPACE 18900000 FUNCT PROC=ISTZKFCB,ATTACH=R,DVC=32XX 18950000 FUNCT PROC=ISTZDFL0,ATTACH=L,DVC=32XX 19000000 SPACE 19050000 * UNSOLICITED BTU PROCESSOR 19100000 SPACE 19150000 FUNCT PROC=ISTZIFJB,DVC=32XX 19200000 SPACE 19250000 * 3270 SEGMENT PROCESSOR 19300000 SPACE 19350000 FUNCT PROC=ISTZDFWR,ATTACH=R,DVC=32XX 19400000 SPACE 19450000 ISTATOBP DVT , ASYN OUTBOUND 19500000 SPACE 19550000 * ASYNCH SCHEDULER 19600000 SPACE 19650000 FUNCT PROC=ISTZAF1B,EXCEPT=32XX 19700000 FUNCT PROC=ISTZAF1R,DVC=32XX 19750000 ISTDVCRC ENDMODE 19800000 END 19850000