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?>
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 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 have to make a new member in a JCL. This isn't a problem:
My code:
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD *
//SYSUT2 DD DISP=(NEW,KEEP),UNIT=SYSALLDA,DSN=name.JCL4(MEMBER),
SPACE=(CYL,(1,1,45)),
VOL=SER=DMTU01
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/*
But I want that my MEMBER1 contains text.
So when I go in JCL4 and I press an e (edit) before MEMBER, I want to see some text like 'Hallo'. Can someone help me to explain how to do this?
If you are creating a new member in an existing JCL dataset, Try:
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD *
Hello
/*
//SYSUT2 DD DSN=name.JCL4(MEMBER),DISP=(SHR,KEEP)
//SYSIN DD DUMMY
/*
The Disp refers to the dataset and not the member. so if the dataset already exists, you do not need to create it !!.
If you want create a new JCL dataset and a member at the same time,
the JCL should be like (where you catlg the dataset)
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD *
Hello
/*
//SYSUT2 DD DSN=name.JCL4(MEMBER),DISP=(NEW,CATLG),
// UNIT=SYSALLDA, should this be sysda ???
// SPACE=(CYL,(1,1,45)),
// VOL=SER=DMTU01
//SYSIN DD DUMMY
/*
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.
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=*