What JCL to run a PL / I menu?
Posted: Sat Mar 14, 2015 11:17 pm
Hello, on the internet I found the following code to display a menu and answer (Options 1, 2, 3 or 4):
/ * PROGRAM MENU TO CALL DIFF. PROGRAMS * /
MENUPROGRAM: PROC OPTIONS (MAIN);
DCL RDPROGRAM EXT ENTRY;
DCL WRPROGRAM EXT ENTRY;
DCL MODPROGRAM EXT ENTRY;
DCL CH CHAR (1);
PUT SKIP LIST ('MENU');
PUT SKIP LIST ('1. ADD TO RECORD A');
PUT SKIP LIST ('2. TO READ A RECORD');
PUT SKIP LIST ('3. TO MODIFY RECORD A');
PUT SKIP LIST ('4. EXIT');
PUT SKIP (2) LIST ('ENTER YOUR CHOICE (1-4):');
GET LIST (CH);
IF CH = '1' THEN
CALL WRPROGRAM;
ELSE
IF CH = '2' THEN
CALL RDPROGRAM;
ELSE
IF CH = '3' THEN
CALL MODPROGRAM;
ELSE
IF CH = '4' THEN
RETURN;
ELSE
PUT LIST ('WRONG CHOICE');
END MENUPROGRAM;
How to write the associated JCL?
Thank you.
/ * PROGRAM MENU TO CALL DIFF. PROGRAMS * /
MENUPROGRAM: PROC OPTIONS (MAIN);
DCL RDPROGRAM EXT ENTRY;
DCL WRPROGRAM EXT ENTRY;
DCL MODPROGRAM EXT ENTRY;
DCL CH CHAR (1);
PUT SKIP LIST ('MENU');
PUT SKIP LIST ('1. ADD TO RECORD A');
PUT SKIP LIST ('2. TO READ A RECORD');
PUT SKIP LIST ('3. TO MODIFY RECORD A');
PUT SKIP LIST ('4. EXIT');
PUT SKIP (2) LIST ('ENTER YOUR CHOICE (1-4):');
GET LIST (CH);
IF CH = '1' THEN
CALL WRPROGRAM;
ELSE
IF CH = '2' THEN
CALL RDPROGRAM;
ELSE
IF CH = '3' THEN
CALL MODPROGRAM;
ELSE
IF CH = '4' THEN
RETURN;
ELSE
PUT LIST ('WRONG CHOICE');
END MENUPROGRAM;
How to write the associated JCL?
Thank you.