Interested to Buy Any Domain ? << Click Here >> for more details...
how to convert fb to vb in jcl ?
- 5 Answers
- 45944 Views
- IBM, Infosys, I also Faced
- E-Mail Answers
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 does IEBGENER do?
How to fetch even records from one file to another file by using ICETOOL in JCL?
what is a MODELDSCB?
How to concatenate different LRECL of files?
when we use sysprint and sysout statements
Suppose I have five jobs to do. But I want to hold one?
a dd statement has 2 types of parameters. Name them?
Many jcl statements contain specific values designed to direct and control the execution of the statement. What are these fields called?
i have five step in jcl.my forth step is gdg.gdg was abend.when will job complete,hoe to handle you
how to increase the space of a dataset in instream procedure.
What is a procedure?
What is the difference between specifying DISP=OLD and DISP=SHR for a dataset?
COBOL 
