How can unused space allocation be returned to the system when a dataset is closed?
No Answer is Posted For this Question
Be the First to Post Answer
Suppose we have 5 steps in a job.No step should be executed After submitting every step in a job
Explain about ISPF/TSO Commands
do we need to mention the location of catalogued procedure for each it's call in a single job?
JCL Example: // //RUNJCL JOB CLASS=5,MSGCLASS=6,NOTIFY=&SYSUID //STEP01 EXEC PGM=IEFBR14 // .. .. If this JCL will run or it'll throw the ERROR?
WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375
How to skip first step of a job? Can we use COND on the first step?
Suppose your program is reading a Sequential Vsam file. The file contains 10 records. How will you code the JCL to read only 2nd, 5th, 7th,and 10th record?
What does a disposition of (MOD,DELETE,DELETE) mean ?
My JCL have five steps & I created new versions of GDG in first step through fourth step & fifth step I was refered Step one GDG version. My JCL got abend at 4th step and how I can restart my JCL Please let me know the answers. //STEP1 EXEC GDG1(+1) DISP=(NEW) //STEP2 EXEC GDG1(+2) DISP=(NEW) //STEP3 EXEC GDG1(+3) DISP=(NEW) //STEP4 EXEC GDG1(+4) DISP=(NEW) //STEP5 EXEC GDG1(+1) DISP=(OLD)
11 Answers HCL, IBM, L&T, TCS,
What is the error/SOC code if dd names are not sysut1 and sysut2 in IEBGENER?
I found in one of the jcl, gdg version being mentioned as : abc.def.ghi(-0) Can anyone tell me how referring the version as (-0) is different from referring it as (0)
One dataset is creating in the step1 with LRECL of 133 and the same dataset is used in the next step in DISP=SHR mode, but while scanning the JCL the following error is thrwon. Please verify the below JCL $/SEPP030.PROVIDER DD DSN=Z1225BT.F5750PG9.F5910PRV.QC#A6868 //ERRORRPT DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, --ERRORRPT DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=&DISNCD,UNIT=&DELQ, -- DISP= (NEW,CATLG,DELETE),UNIT=DELQ, // SPACE=(TRK, (30,15),RLSE), // DCB=&DCB2 -- DCB= (PPG.METMODEL,BLKSIZE=0,LRECL=133,RECFM=FB) $/SEPP030.ERRORRPT DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT //SEPP040 EXEC PGM=FILEAID,COND= (0002,EQ,SEPP030) //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //DD01 DD DSN=SYSCMN.PROD.CCLIB (F5910EP1),DISP=SHR $/SEPP040.DD01 DD DSN=Z1225BT.TEST.CCLIB (F5910EP1) E1 - DSS20791E - DATA SET 'Z1225BT.F5910EPP.ERRORRPT.AOUTPUT' HAS AN LRECL OF 133 COULD NOT BE OPENED BECAUSE THE CODED LRECL WAS 80. // DD DSN=F5910&ST&IN..F5910EPP.ERRORRPT.P&CYCDATE, -- DD DSN=F5910PG.F5910EPP.ERRORRPT.P, // DISP=SHR $/ DD DSN=Z1225BT.F5910EPP.ERRORRPT.AOUTPUT please find the error code in the above mentioned lines and please suggest me about the error and the solution for that.