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 |
Hi, all Suppose i have 10 step in a job (s1,s2,s3,...s10) i want to execute step9 first and then step3 and i used the DPRTY for these steps. so what will happen to other steps? Will the get executed or only these two steps get executed?
What is order of searching of the libraries in a JCL?
How to view the hexa decimal value thru file aid if copy book is not present for that particular data
Explain about RECORDING MODE Clause
How to fetch even records from one file to another file by using ICETOOL in JCL?
What is COND=EVEN ?
What is the function of the dd dcb keyword?
What do you know about jcl?
how to see the latest generation in gdg?
How to delete AIX ? i) IEBGENER ii) IDCAMS iii) PURGE iv) All of the above
How to print data of sequential file to Spool..?
What is one line to pass PARM from JCL to COBOL?