********************************************************************** 00050002 * * 00100002 * MODULE - * 00150002 * IKJEFD31 - MESSAGE CSECT * 00200002 * * 00250002 * FUNCTION - * 00300002 * THIS MODULE CONTAINS ALL OF THE MESSAGES TO BE ISSUED BY * 00350002 * THE ALLOCATE CP. THE MESSAGES ARE CODED USING THE IKJTSMSG * 00400002 * MACRO, AND ARE PROCESSED BY MODULE IKJEFF02. * 00450002 * * 00500002 * ENTRY POINT - * 00550002 * IKJEFD31 - IKJEFF02 SEARCHES FOR THE MESSAGE TEXT TO BE * 00600002 * PUT OUT TO THE TERMINAL. * 00650002 * * 00700002 * INPUT - * 00750002 * NONE * 00800002 * * 00850002 * OUTPUT - * 00900002 * NONE * 00950002 * * 01000002 * EXTERNAL REFERENCES - * 01050002 * NONE * 01100002 * * 01150002 * EXITS, NORMAL - * 01200002 * NONE * 01250002 * * 01300002 * EXITS, ERROR - * 01350002 * NONE * 01400002 * * 01450002 * TABLES/WORKAREAS - * 01500002 * NONE * 01550002 * * 01600002 * ATTRIBUTES - * 01650002 * REENTRANT AND REFRESHABLE * 01700002 * * 01750002 * CHARACTER CODE DEPENDENCY - * 01800002 * EBCDIC CHARACTER SET USED IN ASSEMBLING. MODULE MUST BE * 01850002 * REASSEMBLED IF A DIFFERENT CHARACTER SET IS USED. * 01900002 ********************************************************************** 01950002 IKJEFD31 CSECT 02050002 M100A IKJTSMSG ('IKJ56101I NOT ENOUGH MAIN STORAGE TO EXECUTE COMMANX02150002 D'),100A 02200002 M101A IKJTSMSG ('IKJ56104I COMMAND SYSTEM ERROR+'),101A 02300002 M102A IKJTSMSG ('IKJ56104I ',,' ERROR CODE ',),102A,101A 02400002 M103A IKJTSMSG ('IKJ56107I ',,' QUANTITY EXCEEDS MAXIMUM ALLOWABLE+'X02500002 ),103A 02550002 M104A IKJTSMSG ('IKJ56107I MAXIMUM OF 65535 FOR BLOCK AND AVBLOCK, MX02650002 AXIMUM OF 16777215 FOR SPACE, SPACE INCREMENT AND DIR'),X02700002 104A,103A 02750002 M105A IKJTSMSG ('IKJ56109I DATA SETS NOT CONCATENATED+'),105A 02850002 M106A IKJTSMSG ('IKJ56109I COMBINING UNLIKE DATA SET ORGANIZATIONS IX02950002 S INVALID'),106A,105A 03000002 M107A IKJTSMSG ('IKJ56109I NUMBER OF DATA SETS EXCEEDS MAXIMUM, MAXIX03100002 MUM IS 16 PARTITIONED OR 255 SEQUENTIAL DATA SETS'),107AX03150002 ,105A 03200002 M108A IKJTSMSG ('IKJ56109I ',,' INVALID WITH CONCATENATION REQUEST')X03300002 ,108A,105A 03350002 M109A IKJTSMSG ('IKJ56109I FAILURE TO ALLOCATE DATA SET ',),109A,105X03450002 A 03500002 M110A IKJTSMSG ('IKJ56109I DATA SET ORGANIZATION NOT SEQUENTIAL OR PX03600002 ARTITIONED'),110A,105A 03650002 M111A IKJTSMSG ('IKJ56109I DATA SET NAME ASTERISK (*) INVALID WITH CX03750002 ONCATENATION REQUEST'),111A,105A 03800002 M112A IKJTSMSG ('IKJ56110I DATA SET ',,' NOT ALLOCATED, MORE THAN 25X03900002 5 VOLUME SERIAL NUMBERS SPECIFIED'),112A 03950002 M113A IKJTSMSG ('IKJ56112A ENTER ''FREE'' OR ''END''+-'),113A,114A 04050003 M114A IKJTSMSG ('IKJ56112A ENTER ''FREE'' TO FREE AND RE-ALLOCATE THX04150002 E FILE ',,', OR ''END'' TO TERMINATE THE COMMAND-'),114A 04200003 M115A IKJTSMSG ('IKJ56113I INVALID RESPONSE, ',),115A 04350002 M115B IKJTSMSG ('IKJ56113I INVALID RESPONSE'),115B 04400003 M116A IKJTSMSG ('IKJ56113A REENTER+-'),116A,117A 04450002 M117A IKJTSMSG ('IKJ56113A ENTER ''FREE'' TO FREE AND RE-ALLOCATE THX04550002 E FILE ',,', OR ''END'' TO TERMINATE THE COMMAND-'),117A 04600003 M118A IKJTSMSG ('IKJ56111I DATA SET ',,' NOT ALLOCATED, DELETE INVALX04710002 ID FOR MEMBERS OF PARTITIONED DATA SETS'),118A 04712002 IKJTSMSG 04750002 END 04850002