%ICB2IOBX: ; /* MACRO @Y30LB01*/ 00050003 /************************************************** @Y30LB01*/ 00100003 /* ****** MAPPING MACRO ***** @Y30LB01*/ 00150003 /* MACRO NAME = ICB2IOBX(VS2) @Y30LB01*/ 00200003 /* @Y30LB01*/ 00250003 /* DESCRIPTIVE NAME = MSSC VS2 IOSB EXTENSION AREA @Y30LB01*/ 00300003 /* @Y30LB01*/ 00350003 /* COPYRIGHT = NONE @Y30LB01*/ 00400003 /* @Y30LB01*/ 00450003 /* CHANGE-ACTIVITY = Y30LB01 @Y30LB01*/ 00500003 /* YD00130 @YD00130*/ 00510003 /* ZM31050 @ZM31050*/ 00520003 /* ZDR2048 DEMOUNT VUA @ZDR2048*/ 00530003 /* @Y30LB01*/ 00550003 /* %SSCLEVEL DEFAULTS @Y30LB01*/ 00600003 /* DCL 1 SSCDATA BASED(SSCDATAP) BDY(WORD), @Y30LB01*/ 00650003 /* @Y30LB01*/ 00700003 /* %SSC9999 DEFAULTS TO SEMICOLON @Y30LB01*/ 00750003 /* @Y30LB01*/ 00800003 /* TO SET YOUR OWN LEVEL 1 USE %SSCLEVEL = 'N' WHERE @Y30LB01*/ 00850003 /* N IS THE LEVEL YOU WANT @Y30LB01*/ 00900003 /* @Y30LB01*/ 00950003 /* TO SET END TO , USE %SSC9999 = ',' @Y30LB01*/ 01000003 /*************************************************** @Y30LB01*/ 01050003 %IF SSCLEVEL = '' /* DEFAULT LEVEL @Y30LB01*/ 01200003 %THEN SSCBASE = 'BASED(SSCDATAP)' ;/* BASED ON SSCDATAP @Y30LB01*/ 01250003 %ELSE SSCBASE = '' ; /* NOT BASED @Y30LB01*/ 01300003 %IF SSCLEVEL = '' /* DEFAULT LEVEL @Y30LB01*/ 01310003 %THEN SSCLEVEL = 'DCL 1 ' ; /* SET LEVEL TO 1 @Y30LB01*/ 01320003 %IF SSC9999 ^= ',' /* COMMA TO CONTINUE @Y30LB01*/ 01350003 %THEN SSC9999 = ';' ; /* DEFAULT TO END @Y30LB01*/ 01400003 SSCLEVEL SSCDATA SSCBASE BDY(WORD),/*MSSC IOSB EXTENSION @Y30LB01*/ 01450003 5 IOECB FIXED(31), /* IO ECB ADDRESS @Y30LB01*/ 01500003 7 ECBCODE CHAR(1), /* IO COMP CODE @Y30LB01*/ 01550003 5 TCBADDR FIXED(31), /* TCB ADDRESS @Y30LB01*/ 01600003 7 TCBPTR PTR(31), /* TCB ADDRESS @Y30LB01*/ 01650003 5 IOERRCD FIXED(15), /* MSSC ERROR CODE @Y30LB01*/ 01700003 7 SSCDERR FIXED(15), /* MSSC ERROR CODE @Y30LB01*/ 01750003 5 APPSW FIXED(16), /* MSSC APPN SWITCHES @Y30LB01*/ 01800003 7 ERPSW BIT(1), /* ERP PROCESS SWITCH @Y30LB01*/ 01810003 7 POSTSW BIT(1), /* POST SWITCH @Y30LB01*/ 01820003 7 ATTNSW BIT(1), /* SPECIAL ATTN I/O @ZM31050*/ 01830003 7 * BIT(13), /* RESERVED @ZM31050*/ 01840003 5 APGAREA CHAR(64) BDY(WORD), /* APPN SAVE AREA @Y30LB01*/ 01850003 7 APPSAV(16) FIXED(31), /* APPN SAVE AREA @ZDR2048*/ 01900003 5 DMTID CHAR(2), /* SVC TO AEA COMM AREA @ZDR2048*/ 02000003 5 DMTVOL CHAR(6) /* AEA TO SVC COMM AREA @ZDR2048*/ 02050003 SSC9999 /* MSSC IOSB EXT END @ZDR2048*/ 02100003