I tried to run this following JCL program using IBM z/OS
//PAYMENT JOB MSGCLASS=H
//PAYMENT EXEC PGM=PAYMENT,REGION=1024K
// PARM='CSQ1,CARD.PAYMENTS,IND0163.REPLY,IND0163
// 5999.99,"MY PAYMENT"'
//STEPLIB DD DSN=ZOS.CONTEST3.PART2.LOAD,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQLOAD,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQANLE,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQAUTH,DISP=SHR
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
but after submission of the job ,when I'm trying to view the job output using SDSF , I'm getting IEFC605I UNIDENTIFIED OPERATION FIELD on line 3 and 4 !! can anyone tell me what's wrong with my program ...
Try ending lines 2 and 3 with a comma so the JCL reader knows that these lines are not yet complete (ie. continue on the following line).
//PAYMENT JOB MSGCLASS=H
//PAYMENT EXEC PGM=PAYMENT,REGION=1024K, <== continued...
// PARM='CSQ1,CARD.PAYMENTS,IND0163.REPLY,IND0163, <== continued...
// 5999.99,"MY PAYMENT"'
//STEPLIB DD DSN=ZOS.CONTEST3.PART2.LOAD,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQLOAD,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQANLE,DISP=SHR
// DD DSN=WMQ.V6R0.SCSQAUTH,DISP=SHR
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
Related
I'm getting JCL error 838 and the error messages I'm seeing are: "IEFC006I Positional parameters must be specified before keyword parameter" and "IEFC001I Procedure comp was expanded using instream procedure definiti"
This is what I've typed up:
//TSOZA601 JOB 3ES10G10000012,'TSOZA60',MSGCLASS=Q,MSGLEVEL=(1,1),
// NOTIFY=TSOZA60,CLASS=A,REGION=2M
//COMP PROC
//*****
//***** MAKE BACKUP
//*****
//S1 EXEC PGM=IEBCOPY
//SYSPRINT1 DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=(,CATLG),DSN=TSOZA60.ES10.BACK,
// LIKE=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOK1 IF (S1.RC=0) THEN
//*****
//***** COMPRESS DATASET
//*****
//S2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=TSOZA60.ES10.CNTL
//SYSUT2 DD DISP=OLD,DSN=TSOZA60.ES10.CNTL
//SYSIN DD DUMMY
//IFOKEND1 ENDIF
//IFOK2 IF (S2.RC=0) THEN
//*****
//***** COMPRESS SUCCESSFUL, DELETE BACKUP
//*****
//S3 EXEC PGM=IEFBR14
//DD1 DD DISP=(OLD,DELETE),DSN=TSOZA60.ES10.BACK
//IFOKEND2 ENDIF
// PEND
//FINAL EXEC COMP
//S1.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S1.SYSUT2 DD DSN=TSOZA60.ES10.BACK
//S2.SYSUT1 DD DSN=TSOZA60.COPY.CNTL
//S2.SYSUT2 DD DSN=TS0ZA60.COPY.CNTL
//S3.DD1 DD DSN=TSOZA60.ES10.BACK
I have a main program which is purely COBOL, and a COBOL-DB2 subprogram. I compiled both using a cobol-db2 compiler, return code is 4 (informational warning only). Then, I bind them both. Now I'm trying to execute the main program using a JCL DB2, however, it doesn't seem to be able to call the subprogram or even execute the run step.
This is my JCL DB2 to run the mainprog calling the subprog:
//GO EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4M,COND=(4,LT)
//STEPLIB DD DSN=DSN910.DB9G.RUNLIB.LOAD,
// DISP=SHR
// DD DISP=SHR,DSN=DSN910.DB9G.SDSNEXIT
// DD DISP=SHR,DSN=DSN910.SDSNLOAD
// DD DISP=SHR,DSN=ISP.SISPLOAD
// DD DISP=SHR,DSN=GDDM.SADMMOD
//SYSOUT DD SYSOUT=*
//SYUDUMP DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//TRANFILE DD DSN=PROJECT.ABC.TRANKSDS,DISP=SHR
//MGMTREPT DD DSN=PROJECT.ABC.MGMTREPT,
// UNIT=SYSDA,DISP=(NEW,CATLG),
// SPACE=(32,(3,3)),
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=81)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB9G)
RUN PROGRAM(ABCREPRT) PLAN(DSNTIA91)
END
/*
Then this is the SDSF of the JCL, return code = 0:
NP DDNAME StepName ProcStep DSID
JESMSGLG JES2 2
JESJCL JES2 3
JESYSMSG JES2 4
Shouldn't GO stepname appear as well if it's a successful execution?
I would at least expect a READY message on //SYSTSPRT if that step did start. So, yes there should be an entry for SYSTSPRT in that list. Did you look at the OUTPUT queue in SDSF to see if some output of your job went to this queue instead of the HOLD queue?
You could replace the DSN ... END sequence in //SYSTSIN with some TSO command, say LISTA and see if this produces some output.
I have the following code:
//******************************************
//PROC01 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=(B,SMTP)
//SYSUT1 DD *
RCPT TO:<MAIL#AR.TEST.COM>
DATA
SOME TEXT GOES HERE
Can I attach a dataset/file into the mail? Thanks.
Try something like:
//******************************************
//PROC01 EXEC PGM=IEBGENER
//EMAIL OUTPUT DEST=EMAIL,
// USERDATA=('FILENAME:attachment.txt',
// 'TO:<MAIL#AR.TEST.COM>',
// 'FILEDESC:Sent from MVS'),
// TITLE=('Sent from MVS'),
// MAILFROM=('<YOURMAIL#AR.TEST.COM>'),
// REPLYTO=('<YOURMAIL#AR.TEST.COM>')
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1 DD DISP=SHR,DSN=<DSNNAME>
or, if you would like the attachment to be a PDF, something like:
//******************************************
//PROC01 EXEC PGM=IEBGENER
//EMAIL OUTPUT DEST=EMAILPDF,
// USERDATA=('FILENAME:attachment.pdf',
// 'TO:<MAIL#AR.TEST.COM>',
// 'PDFPGSIZ=(826,1169)',
// 'PDFFONT=(COURIER,8)',
// 'FILEDESC:Sent from MVS'),
// TITLE=('Sent from MVS'),
// MAILFROM=('<YOURMAIL#AR.TEST.COM>'),
// REPLYTO=('<YOURMAIL#AR.TEST.COM>')
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1 DD DISP=SHR,DSN=<DSNNAME>
Hope this works for you :)
You should be able to just add card:
// DD DSN=,DISP=SHR
to the end of your existing job. We use this style all the time. Using the OUTPUT card is also an option, as previously noted.
I write jcl 4 dbdgen:
//C EXEC PGM=ASMA90,REGION=8M,
// PARM=(OBJECT,NODECK,NODBCS,'SIZE(MAX,ABOVE)')
//SYSIN DD DSN=USER19.DBDSRC(LIBDBD),DISP=SHR
//SYSLIB DD DSN=DFSD10.SDFSMAC,DISP=SHR
//SYSLIN DD UNIT=SYSDA,DISP=(,PASS),
// SPACE=(80,(100,100),RLSE),
// DCB=(BLKSIZE=80,RECFM=F,LRECL=80)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),
// SPACE=(CYL,(10,5))
//L EXEC PGM=HEWL,PARM='XREF,LIST',
// COND=(0,LT,C),REGION=120K
//SYSLIN DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DISP=SHR,
// DSN=USER19.DBDLIB(LIBDBD)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),
// SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)
And have 8 rc.
I think, that it is problem with asma, am i right?
Have anybody any ideas to repair my programm?>
I am trying to understand where I am going wrong in my JCL file.
Here is my code as follows:
//MULTG013 JOB 1,NOTIFY=&SYSUID
//STEP1 EXEC PGM=ICEGENER
//SYSUT1 DD DSN=UNTG013.DATAIN(AUTODATA),DISP=SHR
//SYSUT2 DD DSN=UNTG013.DATAOUT(MULTIOUT),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE UNTG013.DATAIN(AUTONEW)
/*
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OLDINV DD DSN=UNTG013.DATAIN(AUTODATA),DISP=SHR
//NEWINV DD DSN=UNTG013.DATAIN(AUTONEW),DISP=SHR
//SYSIN DD *
REPRO INFILE(OLDINV) OUTFILE(NEWINV)
/*
//STEP4 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//STUFF DD DSN=UNTG013.DATAIN(AUTONEW),DISP=SHR
//SYSIN DD *
PRINT INFILE(STUFF) CHAR
/*
//STEP5 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RENAME 'UNTG013.DATAIN(AUTONEW)' 'UNTG013.DATAIN(ITDSDATA)'
/*
//STEP6 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//STUFF DD DSN=UNTG013.DATAIN(ITDSDATA),DISP=SHR
//SYSIN DD *
PRINT INFILE(STUFF) CHAR
/*
//STEP7 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE UNTG013.DATAIN(ITDSDATA)
/*
//
The error I am getting on the SYS Z is: IEFC605I UNIDENTIFIED OPERATION FIELD, lines 17 & 25.
Not quite sure how it is incorrect. Thanks
OK. Here is the message from spool:
SDSF OUTPUT DISPLAY MULTG013 JOB02122 DSID 4 LINE NOT PAGE MODE DATA
COMMAND INPUT ===> SCROLL ===> PAGE
***************** TOP OF DATA ******************
STMT NO. MESSAGE
17 IEFC605I UNIDENTIFIED OPERATION FIELD
25 IEFC605I UNIDENTIFIED OPERATION FIELD
**************** BOTTOM OF DATA ****************
also just found this as well.
SDSF OUTPUT DISPLAY MULTG013 JOB02122 DSID 2 LINE NOT PAGE MODE DATA
COMMAND INPUT ===> SCROLL ===> PAGE
***************** TOP OF DATA ******************
J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E
17.59.22 JOB02122 ---- FRIDAY, 28 MAR 2014 ----
17.59.22 JOB02122 IRR010I USERID UNTG013 IS ASSIGNED TO THIS JOB.
17.59.22 JOB02122 IEFC452I MULTG013 - JOB NOT RUN - JCL ERROR 415
------ JES2 JOB STATISTICS ------
41 CARDS READ
45 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
2 SYSOUT SPOOL KBYTES
0.00 MINUTES EXECUTION TIME
**************** BOTTOM OF DATA ****************
Hope this helps and thanks for the input thus far! I am still looking into it as well to see if I can figure it out on my own.
When looking at the source of your JCL as posted on SO I see TABs between //STUFF and DD in the two STUFF-lines. If they are there in your original JCL as well try replacing them by spaces. With JCL Blanks and TABs are not interchangeable.