Create a JCL file

  1. Click File > New > JCL File.
  2. In the New file name field, enter opdemo.jcl.
  3. Overwrite the skeleton contents with the following code:
    //OPDEMO  JOB 'OPDEMO',CLASS=A,MSGCLASS=A
    //**************************************************************
    //*  Demonstrates a simple PL/I program running under
    //*  the control of JCL.
    //**************************************************************
    //* Copyright (C) 1985-2017 Micro Focus International Ltd.
    //* All rights reserved.
    //**************************************************************
    //STEP00   EXEC PGM=IEFBR14
    //SYSUT2   DD DSN=OPDEMO.SYSUT2,DISP=(MOD,DELETE,DELETE)
    //*
    //*  Execute the first step with an Open PL/I Binary
    //*
    //STEP10   EXEC PGM=OPDEMO,PARM='HEAP(80M,4M,ANY,KEEP)/NODISPLAYREPLY'
    //SYSUT1   DD *
    INPUT RECORD NUMBER 1
    INPUT RECORD NUMBER 2
    INPUT RECORD NUMBER 3
    /*
    //SYSIN    DD *
    SYSIN RECORD 1
    SYSIN RECORD 2
    SYSIN RECORD 3
    SYSIN RECORD 4
    /*
    //SYSOUT   DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*,DCB=(RECFM=F,LRECL=132),HOLD=Y
    //SYSUT2   DD DSN=OPDEMO.SYSUT2,DISP=(NEW,CATLG),
    //            DCB=(DSORG=PS,LRECL=80,RECFM=FB)
    //*
    //*  Once is fun, twice is a even better
    //*
    //STEP20   EXEC PGM=OPDEMO2,
    //         PARM='HEAP(80M,4M,ANY,KEEP)/SOME STRING HERE'
    //SYSUT1   DD *
    INPUT RECORD NUMBER 3
    INPUT RECORD NUMBER 4
    INPUT RECORD NUMBER 5
    /*
    //SYSIN    DD *
    SYSIN RECORD 1
    /*
    //*SYSOUT   DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*,DCB=(RECFM=F,LRECL=132),HOLD=Y
    //SYSUT2   DD DSN=OPDEMO.SYSUT2,DISP=MOD
    //*
    
  4. Save the file.