Interested to Buy Any Domain ? << Click Here >> for more details...
how to convert fb to vb in jcl ?
- 5 Answers
- 45695 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 is the purpose of dd dummy statement?
what is the restart?hopw it is invoked?
what is the meaning of keyword in jcl?what is is opposite?
wht do u mean by notify parameter, how can u give acess to multiple users ?
How can we see data in TEMPARARY DATA SET in JCL ?
How does jcl act on code(if you take a cobol program)?
In how ways you can pass the data from Jcl to cobol ?
What is Cataloged Procedures?
how many types of sorts are there in jcl?
What all are the changes to be made in JCL so as to do testing?
How is a dataset passed from one step to another?
I've one sequential file, That file contains millians of Junk & CHAR recoreds example File 1 ,,,,,...,,,.....,.,.INFOSYS.....,,,,,,,,,,,WIPRO..........., ,...,..,. My questions is : I want omit the 44th posstion to 4 CHAR (WIPRO) remaining things I want output file (including Junk CHAR also)... How can we slove this problem & give me a syntax. Please provide the result as soon as possible.
COBOL 
