PL/1 SAMPLE PROGRAM  
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.PLI(PRG01) - 01.05                                                        Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 MYPRG:PROCEDURE OPTIONS(MAIN);
000002 PUT SKIP LIST(0);
000003 PUT PAGE LIST((70)'*');
000004 PUT PAGE LINE(2) LIST('MCMILLAN');
000005 END MYPRG;
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                          PL/1 COMPILE JCL  
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.PLI(PL1COMP) - 01.05                                                  Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 //PL1COMP JOB IBMMFS,'MAC',CLASS=A,NOTIFY=&SYSUID
000002 //STEP1 EXEC PLIXCL,PARM.PLI='LIST,MAP,FLOW,GOSTMT'
000003 //* PARM.PLI='O=0,NED,NM,LD,ND,NS2,NE,NL,C60'   <= FOR PL1LF
000004 //SYSIN DD DISP=SHR,DSN=IBMMFS.MAC.PLI(PRG01)   <= IP PGM
000005 //LKED.SYSLMOD DD DSN=IBMMFS.MAC.LOAD(PRG01),DISP=SHR <=OP PGM
000006 //*
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                          PL/1 RUN JCL  
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.PLI(PL1RUN) - 01.05                                                     Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 //PLRUN JOB IBMMFS 'MAC',CLASS=A,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=PRG01
000003 //STEPLIB DD DSN=IBMMFS.MAC.LOAD,DISP=SHR
000004 //SYSPRINT DD SYSOUT=*
000005 //SYSIN DD DUMMY
000006 /*
000007 //*
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

 

® IBMMAINFRAMES.com Training Division                                                               © www.ibmmainframes.com