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)

How to find the UNIT and VOLUME of a (a) KEPT (b) UNCATALOGED and (c) CATALOGED dataset - using (i) JCL and using (ii) ISPF ?

0 Answers   IBM,

---

1.How to check for the errors using TYPRUN=SCAN?What will be the output if we give TYPRUN=SCAN?

11 Answers  

---

how to resolve soc-7 ? please tell me

3 Answers   IBM,

---

in step1 of a jcl,disp=(mod,delete,delete) step02 exec pgm=ccc,cond=(0,le) will step02 be executed? i)never ii)always iii) iv)... i dont remember options

4 Answers   HSBC,

---

Suppose your program is reading a Sequential Vsam file. The file contains 10 records. How will you code the JCL to read only 2nd, 5th, 7th,and 10th record?

1 Answers   Thomson,

---

---

what is the difference between perform varying and perform

1 Answers  

---

What does the keyword DCB mean and what are some of the keywords associated with it?

3 Answers   ITC Infotech,

---

Describe the DD statement, its meaning, syntax and keywords?

2 Answers  

---

I have a job which is a long-running one. Processes millions of records. Due to some run-time problem (not a problem due to the job/data) the job abends.What needs to be done to make the job complete successfully.

4 Answers   TCS,

---

What are s0c1, s0c4, s0c5, s0c7 and socb?

0 Answers  

---

If the COND parameter is specified in both the JOB and EXEC statements, which one will take precedence? If JOB takes priority and if all the conditions evaluate to false, then will the conditions on the EXEC step be evaluated next?

4 Answers   Wipro,

---

What is the purpose and meaning of the TIME keyword and what JCL statement is it associated with?

1 Answers  

---