* %GOTO SSCICMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSCI 00150003 .*/ %SSCICMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSCI @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = SUBSYS KEYWORD CONVERTER EXIT @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSCIPLS; /* @ZA34144 00600003 * @G29AN2F 00700003 SSOBCONV EQU 38 CONVERTER SUBSYS EXIT (SSOBFUNC) @G29AN2F 00750003 * @G29AN2F 00800003 * CONVERTER EXIT RETURN CODES (SSOBRETN) @G29AN2F 00850003 SSCIRTOK EQU 0 SUCCESSFUL SYNTAX CHECK @G29AN2F 00900003 SSCICMOD EQU 4 SUCCESSFUL-INTERNAL TEXT MODIFIED @G29AN2F 00950003 SSCISYNC EQU 8 SYNTATICAL ERROR - CONTINUE JOB @G29AN2F 01000003 SSCISYNT EQU 12 SYNTATICAL ERROR - TERMINATE JOB @G29AN2F 01050003 SSCIPERR EQU 36 PROGRAM ERROR IN ROUTINE @G29AN2F 01100003 * @G29AN2F 01150003 ORG SSOBGN @G29AN2F 01200003 SSCIBGN EQU * CONVERTER EXTENSION BEGINNING @G29AN2F 01250003 SSCILEN DC AL2(SSCISIZE) CONVERTER EXTENSION SIZE @G29AN2F 01300003 SSCIFLG1 DS X FLAGS RESERVED @G29AN2F 01350003 SSCIFLG2 DS X FLAGS RESERVED @G29AN2F 01400003 SSCIINTP DS A ADDRESS INTERNAL TEXT OF JCL STMT @G29AN2F 01450003 SSCISUBS DS A ADDRESS OF FIRST SUBSYS LEN/PARM @G29AN2F 01500003 SSCIMLEN DS H MAX LENGTH OF MESSAGE @G29AN2F 01550003 SSCINPRM DS H NUMBER OF LENGTH/PARM PAIRS IN @G29AN2F 01600003 * SUBSYSTEM DATA @G29AN2F 01650003 SSCIMPTR DS A POINTER TO MESSAGE AREA @G29AN2F 01700003 SSCISSNM DS CL4 SUBSYSTEM NAME @G29AN2F 01750003 SSCISIZE EQU *-SSCIBGN EXTENSION LENGTH @G29AN2F 01800003 * @G29AN2F 01850003 * ERROR MESSAGE PROCESSING @G29AN2F 01900003 * - FIELD SSCIMPTR POINTS TO A MESSAGE AREA CREATED @G29AN2F 01950003 * BY THE CALLER IN WHICH THE SUBSYSTEM IS TO RETURN @G29AN2F 02000003 * ERROR MESSAGES. @G29AN2F 02050003 * - EACH MESSAGE AREA CONSISTS OF A 2 BYTE LENGTH FOLLOWED @G29AN2F 02100003 * BY A MESSAGE TEXT AREA OF LENGTH DEFINED IN SSCIMLEN. @G29AN2F 02150003 * - A MESSAGE IS TO BE RETURNED WHEN A NON-ZERO SSOBRETN @G29AN2F 02200003 * IS RETURNED BY THE SUBSYSTEM. @G29AN2F 02250003 * @G29AN2F 02300003 SSOBLN19 EQU SSOBHSIZ+SSCISIZE TOTOAL SSOB LENGTH @G29AN2F 02350003 MEND @ZA34144*/ 02400003 * %SSCIPLS:; /* @ZA34144*/ 02430003 * /* FUNCTION IDS (SSOBFUNC) @G29AN2F*/ 02500003 * DCL SSOBCONV FIXED(15) CONSTANT(38);/* CONVERTER EXIT @G29AN2F*/ 02550003 * /* @G29AN2F*/ 02600003 * /* CONVERTER EXIT RETURN CODES (SSOBRETN) @G29AN2F*/ 02650003 * /* @G29AN2F*/ 02700003 * DCL SSCIRTOK FIXED(15) CONSTANT(0); /*SUCCESSFUL SYNTAX 02750003 * CHECK @G29AN2F*/ 02800003 * DCL SSCICMOD FIXED(15) CONSTANT(4); /*SUCCESSFUL INTERNAL 02850003 * TEXT MODIFIED @G29AN2F*/ 02900003 * DCL SSCISYNC FIXED(15) CONSTANT(8); /*SYNTACTICAL ERROR 02950003 * CONTINUE JOB @G29AN2F*/ 03000003 * DCL SSCISYNT FIXED(15) CONSTANT(12);/*SYNTACTICAL ERROR 03050003 * TERMINATE JOB @G29AN2F*/ 03100003 * DCL SSCIPERR FIXED(15) CONSTANT(36);/*PERMANENT ERROR @G29AN2F*/ 03150003 * /* @G29AN2F*/ 03200003 * /* S S C I @G29AN2F*/ 03250003 * /* @G29AN2F*/ 03300003 * DECLARE 03350003 * 1 SSCI SSOBCI, /* BEGINNING @G29AN2F*/ 03400003 * 2 SSCILEN FIXED(15), /* LENGTH OF EXTENSION @G29AN2F*/ 03450003 * 2 SSCIFLG1 BIT(8), /* FLAG BYTE RESERVED @G29AN2F*/ 03500003 * 2 SSCIFLG2 BIT(8), /* FLAG BYTE RESERVED @G29AN2F*/ 03550003 * 2 SSCIINTP PTR(31), /* PTR TO STMT INTERNAL TEXT @G29AN2F*/ 03600003 * 2 SSCISUBS PTR(31), /* PTR TO SUBSYS LEN/PARM @G29AN2F*/ 03650003 * 2 SSCIMLEN FIXED(15), /* MAX LENGTH OF MSG @G29AN2F*/ 03700003 * 2 SSCINPRM FIXED(15), /* NUMBER OF LENGTH PARM PAIRS 03750003 * IN SUBSYSTEM DATA @G29AN2F*/ 03800003 * 2 SSCIMPTR PTR(31), /* POINTER TO MESSAGE AREA @G29AN2F*/ 03850003 * 2 SSCISSNM CHAR(4); /* SUBSYSTEM NAME @G29AN2F*/ 03900003 */* @G29AN2F*/ 03950003 */* ERROR MESSAGE PROCESSING @G29AN2F*/ 04000003 */* - FIELD SSCIMPTR POINTS TO A MESSAGE AREA CREATED @G29AN2F*/ 04050003 */* BY THE CALLER IN WHICH THE SUBSYSTEM IS TO RETURN @G29AN2F*/ 04100003 */* ERROR MESSAGES. @G29AN2F*/ 04150003 */* - EACH MESSAGE AREA CONSISTS OF A 2 BYTE LENGTH FOLLOWED @G29AN2F*/ 04200003 */* BY A MESSAGE TEXT AREA OF LENGTH DEFINED IN SSCIMLEN. @G29AN2F*/ 04250003 */* - A MESSAGE IS TO BE RETURNED WHEN A NON-ZERO SSOBRETN @G29AN2F*/ 04300003 */* IS RETURNED BY THE SUBSYSTEM. @G29AN2F*/ 04350003 */* @G29AN2F*/ 04400003