Tuesday, March 20, 2007

Create a New member using JCL

//MANIMA JOB (020406),'MANI/941-2',
// MSGLEVEL=1,MSGCLASS=O,NOTIFY=MANIM,
// CLASS=A
//STEP010 EXEC PGM=IEBUPDTE,PARM=NEW
//*
//SYSUT1 DD DUMMY
//SYSUT2 DD DSN=MANIM.TEST.JCL,DISP=SHR
//SYSPRINT DD SYSOUT=X
//*
//SYSIN DD DATA,DLM='><'
./ ADD NAME=SAMPLE,LIST=ALL
/* REXX */
/* SAMPLE */
/***********************************************************/
SAY 'MANI'
EXIT
./ ENDUP
><
//*

No comments:

Post a Comment