radhakrishnan82
Active User
Joined: 31 Mar 2005 Posts: 435 Location: chennai, India
|
|
|
|
Code: |
//aaab5 EXEC PROC=SORT,
// COND=(0,NE)
//*
//SORTIN DD DSN=ddname
// DISP=SHR
//* *** INFILE IS JUST USED AS A DUMMY ***
//*
//SORTOUT DD DSN=ddname,
// DISP=(OLD,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(250,100),RLSE),
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=900)
//* *** OUTPUT FILE WILL JUST HAVE WHAT EVER IS IN OUTREC FIELD ***
//* *** SINCE STOPAFT (STOP AFTER) OPTION IS = 1 ***
//*
//SYSIN DD * *** CONSTANT CONTROL CARDS ***
OPTION COPY,
STOPAFT=1
OUTREC FIELDS=(C'TCKT NUM',
field names
C'ACCUM PLN DRVR')
/* END OF INPUT
// |
this will create a header file.merge this file with the data file.
hope this helps. |
|