TITLE 'IKJCT435 - EXEC MESSAGE CSECT' 00002003 IKJCT435 CSECT 00004003 * /* START OF SPECIFICATIONS **** 00007003 * 00010003 *01* MODULE-NAME = IKJCT435 00013003 * 00016003 *01* DESCRIPTIVE-NAME = TSO EXEC COMMAND PHASE 1 MESSAGE CSECT 00019003 * 00022003 *01* COPYRIGHT = NONE 00025003 * 00028003 *01* STATUS = RELEASE 3.0 00031003 * 00034003 *01* FUNCTION = CONTAINS ALL MESSAGES FOR THE TSO EXEC COMMAND PHASE 1 00037003 * PROCESSING. ALL THE MESSAGES ARE GENERATED USING THE IKJTSMSG 00040003 * MESSAGE MACRO WHICH IS THE FORMAT EXPECTED BY THE MESSAGE WRITER 00043003 * FOR THE TSO EXEC COMMAND (PHASE 1 MESSAGE WRITER IS IKJEFF02). 00046003 * 00049003 *02* OPERATION = THIS CSECT CONTAINS NO EXECUTABLE CODE 00052003 * 00055003 *01* NOTES = N/A 00058003 * 00061003 *02* DEPENDENCIES = NONE 00064003 * 00067003 *03* CHARACTER-CODE-DEPENDENCIES = THIS CODE IS DEPENDENT ON THE 00070003 * EBCDIC CHARACTER CODES 00073003 * 00076003 *02* RESTRICTIONS = NONE 00079003 * 00082003 *02* REGISTER-CONVENTIONS = N/A 00085003 * 00088003 *02* PATCH-LABEL = N/A 00091003 * 00094003 *01* MODULE-TYPE = PROCEDURE 00097003 * 00099003 *02* PROCESSOR = ASSEMBLER 00102003 * 00105603 *02* MODULE-SIZE = SEE ASSEMBLER LISTING 00109003 * 00112003 *02* ATTRIBUTES = N/A 00114003 * 00117003 *01* ENTRY-POINT = N/A 00121003 * 00123403 *02* PURPOSE = N/A 00126803 * 00130003 *02* LINKAGE = N/A 00134003 * 00136003 *02* INPUT = N/A 00138003 * 00141003 *02* OUTPUT = N/A 00145003 * 00147403 *02* REGISTERS-SAVED = N/A 00150203 * 00152203 *02* REGISTER-USAGE = N/A 00156003 * 00159003 *02* REGISTERS-RESTORED = N/A 00162003 * 00165003 *01* EXIT-NORMAL = N/A 00168003 * 00171203 *02* CONDITIONS = N/A 00175603 * 00177603 *02* OUTPUT = N/A 00180003 * 00184303 *02* RETURN-CODES = N/A 00186403 * 00189403 *01* EXIT-ERROR = N/A 00192403 * 00195403 *02* CONDITIONS = N/A 00197403 * 00201003 *02* OUTPUT = N/A 00204203 * 00207403 *02* RETURN-CODES = N/A 00211003 * 00214003 *01* EXTERNAL-REFERENCES = NONE 00217003 * 00220003 *01* TABLES = NONE 00223003 * 00226003 *01* MACROS = IKJTSMSG 00229003 * 00232003 *02* SERIALIZATION = NONE 00235003 * 00238003 *01* CHANGE-ACTIVITY = NEW FOR RELEASE 3.0 VS2 00241003 * 00244003 *01* MESSAGES = N/A 00247003 * 00250003 *01* ABEND-CODES = N/A 00253003 * 00256003 **** END OF SPECIFICATIONS ***/ 00259003 IKJTSMSG ('IKJ56500I ',,'COMMAND ',,' NOT FOUND'),M500 00262003 IKJTSMSG ('IKJ56501I REQUESTED INPUT DATA SET IS EMPTY'),M501 00265003 IKJTSMSG ('IKJ56502I ORGANIZATION OF ',,' ',,' NOT ACCEPTABLE+*00268003 '),H502 00271003 IKJTSMSG ('IKJ56502I ORGANIZATION MUST BE PARTITIONED OR SEQUE*00274003 NTIAL'),M502,H502 00277003 IKJTSMSG ('IKJ56502I ORGANIZATION MUST BE PARTITIONED'),A502,H*00280003 502 00283003 IKJTSMSG ('IKJ56506I INVALID POSITIONAL SPECIFICATION ON PROC *00286003 STMT - ',,'+'),H506 00289003 IKJTSMSG ('IKJ56506I SPECIFICATION MUST BE AN UNSIGNED INTEGER*00292003 1 TO 8 DIGITS IN LENGTH'),M506,H506 00295003 IKJTSMSG ('IKJ56507I INVALID ',,' PARM DEFINITION ON PROC STMT*00298003 - ',,'+'),H507 00301003 IKJTSMSG ('IKJ56507I SYMBOLIC PARM NAMES MUST BE ALPHANUMERIC *00304003 WITH THE FIRST CHARACTER ALPHABETIC'),M507,H507 00307003 IKJTSMSG ('IKJ56507I THE MAX LENGTH IS 31 FOR KEYWORD PARMS AN*00310003 D 252 FOR POSITIONAL PARMS'),A507,H507 00313003 IKJTSMSG ('IKJ56508I INVALID DEFAULT VALUE FOR KEYWORD PARM - *00316003 ',,'+'),H508 00319003 IKJTSMSG ('IKJ56508I DEFAULT VALUE CAN ONLY BE A NULL ENTRY OR*00322003 A CHARACTER STRING (QUOTED OR UNQUOTED)'),M508,H508 00325003 IKJTSMSG ('IKJ56509I MISSING POSITIONAL PARMS+'),H509 00328003 IKJTSMSG ('IKJ56509I THE NUMBER OF POSITIONALS DEFINED IN THE *00331003 PROC STMT IS LESS THAN THE NUMBER SPECIFIED'),M509,H509 00334003 IKJTSMSG ('IKJ56511I INSUFFICIENT VIRTUAL STORAGE TO EXECUTE C*00337003 OMMAND'),M511 00340003 IKJTSMSG ('IKJ56535I ',,' - NESTED GLOBAL PARM COUNT EXCEEDS M*00343003 AX DEFINED BY THE FIRST LEVEL CLIST'),M535 00346003 IKJTSMSG ('IKJ56540I ',,' - INVALID PARM SPECIFIED - ',,'+'),H*00349003 540 00352003 IKJTSMSG ('IKJ56540I THE MAX LENGTH FOR EACH PARM ON THE GLOBA*00355003 L STMT IS 31 AND ON THE READ(DVAL) STMT IS 252'),A540,H5*00358003 40 00361003 IKJTSMSG ('IKJ56540I SYMBOLIC PARM NAMES MUST BE ALPHANUMERIC *00364003 WITH THE FIRST CHARACTER ALPHABETIC'),B540,H540 00367003 IKJTSMSG ('IKJ56540I NEW PARMS DEFINED ON THE READ(DVAL) STMT *00370003 CANNOT EXCEED 31 CHARACTERS'),C540,H540 00373003 IKJTSMSG ('IKJ56520I MEMBER ',,' NOT IN DATASET ',),M520 00376003 IKJTSMSG ('IKJ56521I MEMBER ',,' SPECIFIED BUT DATASET ',,' NO*00377003 T A PARTITIONED DATA SET'),M521 00378003 IKJTSMSG ('IKJ56523I ',,' ',,' NOT USABLE+'),H523 00379003 IKJTSMSG ('IKJ56543I ',,' - MISSING END STRING'),M543 00382003 IKJTSMSG ('IKJ56523I CANNOT OPEN DATA SET'),M523,H523 00385003 IKJTSMSG ('IKJ56524I COMMAND SYSTEM ERROR+'),H524 00388003 IKJTSMSG ('IKJ56524I ',,' RETURN CODE ',),M524,H524 00391003 IKJTSMSG ('IKJ56524I STAE ENVIRONMENT COULD NOT BE ESTABLISHED*00394003 , STAE RETURN CODE WAS ',),A524,H524 00397003 IKJTSMSG ('IKJ56525I INVALID DATA SET NAME, ',,'.CLIST EXCEEDS*00400003 44 CHARACTERS'),M525 00403003 IKJTSMSG ('IKJ56526I ',,' - INVALID KEYWORD - ',),M526 00406003 IKJTSMSG ('IKJ56528I ',,' - ',,' AMBIGUOUS'),M528 00409003 IKJTSMSG ('IKJ56544I ',,' - INVALID OR EXTRANEOUS END STRING -*00412003 ',),M544 00415003 IKJTSMSG ('IKJ56532I ',,' - LABEL ',,' SPECIFIED BUT COMMAND N*00418003 OT FOUND'),M532 00421003 IKJTSMSG ('IKJ56533I ',,' - IF STMT CONTAINS NO EXPRESSION OR *00424003 THEN KEYWORD'),M533 00427003 IKJTSMSG ('IKJ56534I ',,' - A(N) ',,' STMT WAS FOUND FOR WHICH*00430003 THERE IS NO CORRESPONDING ',,' STMT'),M534 00433003 IKJTSMSG ('IKJ56536I ',,' - EXPRESSION FOLLOWING ''WHILE'' KEY*00436003 WORD NOT FOUND, ''WHILE'' OPERAND IS IGNORED'),M536 00439003 IKJTSMSG ('IKJ56538I ',,' - EXPRESSION MISSING FROM SET STMT')*00442003 ,M538 00445003 IKJTSMSG ('IKJ56537I END OF FILE ON CLIST INPUT OCCURRED BEFOR*00448003 E ALL ',,' STMTS WERE CLOSED'),M537 00451003 IKJTSMSG ('IKJ56539I ',,' - NUMBER OF PARMS SPECIFIED ON THE R*00454003 EAD STMT EXCEEDS MAX OF 256'),M539 00457003 IKJTSMSG ('IKJ56527I DEFAULT KEYWORD VALUE ENDING QUOTE ASSUME*00460003 D - ',),M527 00463003 IKJTSMSG ('IKJ56529I SYMBOLIC PARMS IN VALUE LIST IGNORED - ',*00466003 ,'+'),M529 00469003 IKJTSMSG ('IKJ56529I COMMAND PROCEDURE HAS NO PROC STMT'),A529*00472003 ,M529 00475003 IKJTSMSG ('IKJ56529I NO SYMBOLIC PARMS WERE DEFINED ON THE PRO*00478003 C STMT'),B529,M529 00481003 IKJTSMSG ('IKJ56530I ',,' - ',,' IS A MULTIPLY DEFINED SYMBOLI*00484003 C PARM+'),H530 00487003 IKJTSMSG ('IKJ56530I EACH PARM NAME ON A PROC STMT MUST BE UNI*00490003 QUE'),M530,H530 00493003 IKJTSMSG ('IKJ56530I PARMS ON THE GLOBAL STMT CANNOT BE PREVIO*00496003 USLY DEFINED'),A530,H530 00499003 IKJTSMSG ('IKJ56531I ',,' - ',,' IS A MULTIPLY DEFINED LABEL')*00502003 ,M531 00505003 IKJTSMSG 00508003 MODID BRANCH=NO 00511003 END 00514003