how to convert fb to vb in jcl ?
Answers were Sorted based on User's Feedback
//copy exec pgm=idcams
//syprint dd sysout=*
//sysut1 dd dsn=x.y.z.fb,disp=shr
//sysut2 dd dsn=a.b.c.vb,
// disp=(new,catlg,delete),
// dcb=(recfm=vb,lrecl=80,blksize=1600),
// unit=sysda,space=(cyl,(10,10),rlse)
//sysin dd *
repro infile(sysut1)-
outfile(sysut2)
/*
//sysout dd sysout=*
Is This Answer Correct ? | 10 Yes | 5 No |
Answer / guest
//FBVB JOB A92,PROGRAMMER
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A123456.SORT.SAMPIN,DISP=SHR
//VBOUT DD DSN=A123456.SORT.VSAMP,DISP=
(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=VBOUT,FTOV
/*
Is This Answer Correct ? | 8 Yes | 3 No |
Answer / deepak gairola
The JCL
SORT FIELDS=COPY
INCLUDE COND=(60,2,CH,EQ,C'AN',
OR,60,3,CH,EQ,C'ANI')
SUM FIELDS=NONE
OUTFIL FNAMES=FB1,FTOV,OUTREC=(31,19)
If you want to convert to VB to FB use parameter VTOF...
The another method for this is using convert parameter..
This is VB to FB
//S4SORT EXEC
PGM=SORT
//SORTIN DD DSN=INPUT.VARIABLE.FILE,DISP=SHR
<=Variable input
//SORTOUT DD DSN=OUTPUT.FIXED.FILE, <===== Fixed output
// DISP=
(NEW,CATLG,DELETE),
// UNIT=(SYSDA),SPACE=(TRK,(50,15),RLSE),
// DCB=
(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SYSOUT DD
SYSOUT=*
//SYSIN DD
*
INREC FIELDS=
(1:1,4,
6:6,74)
SORT FIELDS=
(62,8,CH,A)
OUTFIL OUTREC=
(1:1,4,
6:6,74,
80:C' '),CONVERT
Is This Answer Correct ? | 5 Yes | 2 No |
Answer / fazrudeen
//COPY EXEC
PGM=FILEAID
//DD01 DD DISP=SHR,DSN=QU1DAAT.CLIP.VBINPUT.GDG
(0)
//DD01O DD DSN=QU1DAAT.MMMYY.CLIP.RAW.FILE,
// DISP=
(NEW,CATLG,DELETE),
// SPACE=(CYL,
(10,10),RLSE),
// DCB=
(DSORG=PS,RECFM=FB,LRECL=200,BLKSIZE=0)
//SYSIN DD
*
$$DD01 COPY
PADCHAR=X'40'
/*
//SYSOUT DD
SYSOUT=*
//SYSPRINT DD
SYSOUT=*
//*
Is This Answer Correct ? | 3 Yes | 2 No |
Answer / http://quotesandsms.com
//STEP080 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTIN DD DSN=DIWQ.CP000000.BUAT.FFB.HBUS.SUMM,
// DISP=OLD
//REPORTFL DD DSN=DIWQ.CP000000.BUAT.FFB.HBUS.GLRPT.TST,
// DISP=(OLD,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
// DCB=(LRECL=104,RECFM=VBA,BLKSIZE=0)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=REPORTFL,FTOV,
HEADER1=(05:'OBS',
08:4X,
12:'BRK-GRCA-CODE',
25:4X,
29:'BRK-GLP-ACCOUNT',
44:4X,
48:'TOTAL-BALANCE',
61:43X),
HEADER2=(05:99X)
OUTREC FIELDS=
(05:1X,
06:SEQNUM,2,ZD, ==> SEQ-
NUM
08:6X,
14:8,7, ==> BRK-GRCA-
CODE
21:11X,
32:1,7, ==> BRK-GLP-
ACCOUNT
39:9X,
48:15,16,ZD,EDIT=(SIIIIIIIIIIIT.TT),SIGNS=
(,-),
64:40X)
Is This Answer Correct ? | 0 Yes | 0 No |
what is JCL?
A PROC has five steps. Step 3 has a condition code. How can you override/nullify this condition code?
What does the one advantange of using IEBUPDTE?????
what is pupose and meaning of the REGION keyword and what jcl statement is it associated with?
Name the system library from which modules are retrieved at execution
I have 5 generations in my GDG. How do I code in the JCL to consider all the 5 versions of the GDG ?
Hi, Say I have 10 flat files and I want to copy all these 10 flat files to a GDG versions flat files (I have GDG base: FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot using a JCL. May be by using IEBGENER. It's a bit urgent. So anyone's fast rely would be appreciated.. Thanks in advance.. 10 flat files ----------------------------------- FDWS01.SUB.RESTORE1 FDWS01.SUB.RESTORE2 FDWS01.SUB.RESTORE3 ; ; FDWS01.SUB.RESTORE10 TO GDG versions ----------------------- FDWS01.TEST.RESTORE.G0001V00 FDWS01.TEST.RESTORE.G0002V00 FDWS01.TEST.RESTORE.G0003V00 ; ; FDWS01.TEST.RESTORE.G0010V00
What is the meaning of the following declaration : DCB=BLKSIZE=, What is the difference between above declaration & not specifying DCB at all for a output file?
If job is submitted with typerun = hold then how can we submit the same job?
in step1 of a jcl,disp=(mod,delete,delete) step02 exec pgm=ccc,cond=(0,le) will step02 be executed? i)never ii)always iii) iv)... i dont remember options
What does it mean by Restart and Checkpoint in JCL ? How are checkpoints being taken and what is their usage ? How to use Checkpoint macro on a JOBSTEP ?
whats SOC7?