Interested to Buy Any Domain ? << Click Here >> for more details...
how to have variable length record in outrec..i have the
requmt as follows..
i/p file variable lenght record
output file : i need to alter the input and write into
outrec(another file)
sort fields:
copy from(dd1) using ctl1
ctl1cntl dd *
outfil fnames=xxx,
outrec=(1,131)
here i outrec is bombing with error..how to overcome this
defect...???
- 1 Answers
- 16808 Views
- I also Faced
- E-Mail Answers
Answer / deepika
We need to include RDW in OUTREC,Record Descriptor Word :
Data preceding a variable record that specifies the length
of the entire record including the RDW.) in outputs which
takes 4-bytes.So we need to add add 4-bytes to OUTREC as,
OUTREC=(1,4,5,131)
| Is This Answer Correct ? | 6 Yes | 2 No |
Say I have a file with 12 records. Each record has the name of the month. I have to append data in these 12 records into 1 record. How is it possible?
What is a COND parameter in JCL?
once we submitted the job to the operating system, how can we cancel the job before execution?
what happens in execution stage in job processing?
what is JCLLIB and PROCLIB in jcl and their syntax
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.
which utility is used a dummy utility?
what happens when time=0 is given in jcl code. what happens when blksize=0 is given in jcl code. what is symbolic and overriding parameters and a example program.
01 GROUP-ITEM 05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50 05 AMOUNT-2 PIC 9(4)V99 USAGE COMP MOVE ZERO TO GROUP-ITEM ADD 50 TO AMOUNT-1 what will be the content of AMOUNT-1? a.50 b.100 c.0 d.unpredictable
How to find the number of duplicates in a file using Sort?
There are 5 steps in a Job. How to bypass the first step by making use of only COND Parameter and not using any Restart and IF/THEN/ELSE parameter?
Explain the function of dd name parameter with a 2 part structure; audit.report?
COBOL 
