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-2013 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
//*
