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 |
wht do u mean by inrec and outrec ?
What is the use of ikjeft1b utility in jcl?
how to override PROC? please give answer in details. Please mention how to write it in JCL. Thanks in advance.
There are two steps in a JCl, the first one generates a report while the second step send an email saying the report has been generated, but the second steps should only be executed when the report file is non-empty. How can it be acheived. We may include steps in between.
why jobstep can't be more than 255 and for GDG has max limit 255 . Is there any relation between the two
if my GDG limit has been kept as 50 and if am trying to put 60 records.what would happen. will there be any abend for this scenario
what is static and dynamic call with examples?
I have 20 steps in a job... step01, 02....step17...step20. For some reason I want to execute step17 only if the return code for all the previous steps are less than or equal to 4. otherwise if return code for any of the previous 16 steps is greater than 4, then step17 should be bypassed. How do I do that ?? how and in which step should i formulate COND parameter
what is the purpose of coding class parameter in job statement?
The maximum number of in-stream procedure you can code in any JCL is ?
What is the function of a dd statement?
My JOB contains three steps. //STEP1 EXEC PGM=ABC //STEP2 EXEC PGM=DEF //STEP3 EXEC PGM=GHI My Question is 1) I want to execute second step only. How will do. 2) Soppose U consider above three steps are in PROC steps and I want execute the PROC second step only? How to execute the second step only. During exection time its creating any ABEND? Please let me know..........