Answer / sneha

//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=*

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
/*

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

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=*
//*

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)

What is DISP= (NEW,PASS,DELETE)?

3 Answers   HCL,

How many steps we can overide in the proc's?

2 Answers   CS,

Hi, can any one tell about " How do u eliminate the duplicates "

2 Answers   Cap Gemini,

Which storage devices are grouped under DASD and SYSDA ?

1 Answers   IBM,

What are the parameter we cannot use in procedure? How many instream we can write in single jcl?

0 Answers  

What is a JCL Command statement ?

1 Answers   IBM,

Can we find specific member without knowing the name of PDS or can we search a member to which PDS it belongs to? if so how?

6 Answers  

Using DELETE what type of file can you delete? a)SEQUENTIAL FILE B)INDEXED FILE C) D) Some options were there..i cant remember

3 Answers   HSBC,

When a dataset is UNCATALOGED in a JOBSTEP, how to get its UNIT and VOL in JCL to refer in subsequent steps ?

1 Answers   IBM,

We have two PS files,want to compare those files and put the duplicate records in one file. Input file 1 contains(1,2,4,9,10) Input file 2 contains (1,4,5,11,12,14,16). Help me with jcl.

6 Answers  

Can we call instream to catalog and catalog to instream?

0 Answers  

What does a disposition of (NEW,CATLG,DELETE) mean?

3 Answers