* /* START OF SPECIFICATIONS **** 00050000 * PROLOGUE 00100000 * 00150000 *01* MINI-MODULE-NAME = ISTYSSCP 00200000 * 00250000 *01* FUNCTIONS = TO CREATE A SKELETEL DVT FOR VARY (SNA DEVICES) 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 = APPROX 1260-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 = NONE 01300000 * 01350000 **** END OF SPECIFICATIONS ***/ 01400000 ISTYSSCP STRTMODE CONTROL SUPPORT FOR SNA DEVICES (VS2) 01450000 *A-000000-999999 XL03HBS 01600000 * 01650000 ISTCLOBP DVT 01700000 FUNCT PROC=ISTDCC00 01750000 * 01800000 IDPURGEO DVT 01850000 FUNCT PROC=ISTDCC80 01900000 * 01950000 ISTCLIBP DVT 02000000 FUNCT PROC=ISTINCIP 02050000 * 02100000 *********************************************************************** 02150000 * 02200000 ISTTPOBP DVT , OUTBOUND- CONTROL MODE 02250000 SPACE 02300000 * REMOTE DEVICE SCHEDULER 02350000 SPACE 02400000 FUNCT PROC=ISTZAF1B 02450000 SPACE 02500000 * LCCW TO BTU TRANSLATOR 02550000 SPACE 02600000 FUNCT PROC=ISTZBF0B 02650000 SPACE 02700000 * DIALOG SCHEDULER 02750000 SPACE 02800000 FUNCT PROC=ISTZDFL0 02850000 SPACE 02900000 * SESSION SCHEDULER 02950000 SPACE 03000000 FUNCT PROC=ISTZDFL0 03050000 SPACE 03100000 * READ 03150000 SPACE 03200000 FUNCT PROC=ISTZBFX0 03250000 SPACE 03300000 * WRITE 03350000 SPACE 03400000 FUNCT PROC=ISTZBFX0 03450000 SPACE 03500000 * WRITE SOH 03550000 SPACE 03600000 FUNCT PROC=ISTZBFX0 03650000 SPACE 03700000 * COPY 03750000 SPACE 03800000 FUNCT PROC=ISTZBFX0 03850000 SPACE 03900000 * WRITE CONTROL 03950000 SPACE 04000000 FUNCT PROC=ISTZBFX0 04050000 SPACE 04100000 * RESET 04150000 SPACE 04200000 FUNCT PROC=ISTZBFX0 04250000 SPACE 04300000 * INVALID CONTROL 04350000 SPACE 04400000 FUNCT PROC=ISTZBFX0 04450000 SPACE 04500000 * CONTACT 04550000 SPACE 04600000 FUNCT PROC=ISTZBFX0 04650000 SPACE 04700000 * DISCONNECT 04750000 SPACE 04800000 FUNCT PROC=ISTZBFX0 04850000 SPACE 04900000 * QUIESCE LCCW @X50BHDA 04950000 SPACE 05000000 FUNCT PROC=ISTZBFID,DVC=370X @X50BHDA 05050000 FUNCT PROC=ISTZBFID,DVC=LU01,ATTACH=R @X50BHDA 05100000 FUNCT PROC=ISTZBFID,DVC=CC01,ATTACH=R @X50BHDA 05150000 FUNCT PROC=ISTZBFX0,DVC=LU01,ATTACH=L @X50BHDA 05200000 FUNCT PROC=ISTZBFX0,DVC=CC01,ATTACH=L @X50BHDA 05250000 SPACE 05300000 * PREEMPT 05350000 SPACE 05400000 FUNCT PROC=ISTZBFX0 05450000 SPACE 05500000 * RESTORE 05550000 SPACE 05600000 FUNCT PROC=ISTZBFX0 05650000 SPACE 05700000 * INVALID COMMAND 05750000 SPACE 05800000 FUNCT PROC=ISTZBFX0 05850000 SPACE 05900000 * SEND LCCW 05950000 SPACE 06000000 FUNCT PROC=ISTZBFID,DVC=370X @X50BHDA 06050000 FUNCT PROC=ISTZBFID,DVC=LU01,ATTACH=R @X50BHDA 06100000 FUNCT PROC=ISTZBFID,DVC=CC01,ATTACH=R @X50BHDA 06150000 FUNCT PROC=ISTZBFIF,DVC=LU01,ATTACH=L @X50BHDA 06200000 FUNCT PROC=ISTZBFIF,DVC=CC01,ATTACH=L @X50BHDA 06250000 SPACE 06300000 * PREEMPT COMPLETION 06350000 SPACE 06400000 FUNCT PROC=ISTZDFL0 06450000 SPACE 06500000 * RESET CLEANUP (PHASE 1) 06550000 SPACE 06600000 FUNCT PROC=ISTZDFL0 06650000 SPACE 06700000 * RESET CLEANUP (PHASE 3) 06750000 SPACE 06800000 FUNCT PROC=ISTZDFL0 06850000 SPACE 06900000 * RESET CLEANUP (PHASE 4) 06950000 SPACE 07000000 FUNCT PROC=ISTZDFL0 07050000 SPACE 07100000 * SESSION CONTROL 07150000 SPACE 07200000 FUNCT PROC=ISTZBFSC 07250000 SPACE 07300000 ISTTPIBP DVT , INBOUND- CONTROL MODE 07350000 SPACE 07400000 * PIU ROUTER 07450000 SPACE 07500000 FUNCT PROC=ISTZIF1B 07550000 SPACE 07600000 * FID1 PROCESSOR 07650000 SPACE 07700000 FUNCT PROC=ISTZIFID 07750000 SPACE 07800000 * SESSION CONTROL 07850000 SPACE 07900000 FUNCT PROC=ISTZIFSC 07950000 SPACE 08000000 * SEGMENTING PROCESSOR @X50BHDA 08050000 SPACE 08100000 FUNCT PROC=ISTZIFSG @X50BHDA 08150000 * 08200000 ISTATOBP DVT 08250000 SPACE 08300000 * REMOTE DEVICE SCHEDULER 08350000 SPACE 08400000 FUNCT PROC=ISTZAF1B 08450000 SPACE 08500000 ISTYSSCP ENDMODE 08550000 END 08600000