kmkarth
Beginner
Joined: 02 Dec 2002
Posts: 5
Topics: 3
Location: India
|
 Posted: Tue Dec 03, 2002 11:33 am Post subject: Convert a Partitioned(PDS) file to Sequential(PS) file. |
 |
|
| Code: |
//STEP01 EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=INPUT.PDS,
// DISP=SHR
//SYSUT2 DD DSN=&&UNLOAD1,
// DISP=(,PASS),UNIT=SYSDA,
// SPACE=(TRK,(100,10),RLSE),
// DCB=(RECFM=FB,LRECL=81,BLKSIZE=0)
//SYSIN DD *
PUNCH TYPORG=PO
/*
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------
//STEP02 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&&UNLOAD1,
// DISP=(OLD,DELETE)
//SYSUT2 DD DSN=OUTPUT.PS,
// DISP=(NEW,CATLG),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// UNIT=SYSDA,
// SPACE=(TRK,(100,10),RLSE)
//SYSIN DD *
GENERATE MAXFLDS=1
RECORD FIELD=(80,2,,1)
/*
//SYSPRINT DD SYSOUT=*
//
|
Thanks,
Karthik |
|
Nila
Beginner
Joined: 26 Dec 2002
Posts: 20
Topics: 8
Location: Chennai, India
|
| Posted: Thu Dec 26, 2002 7:53 am Post subject: |
|
|
Hi hope this REXX code also fulfill the requirement.
[code:1:4d06becbf5]
//**********JOB CARD*************//
//STEP EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=userid.seqfile.expds
//SYSUT2 DD DISP=SHR,DSN=your.output.pds
REXX
/* -------------------- REXX ** ------------------- */
/* Syntax for expds: */
/* %expds hlq.pdsname off */
/* ------------------------------------------------ */
ARG libparm ver
IF ver = ON THEN
TRACE ALL
user = USERID()
temp_grc = "
_________________
Cheers Nila.. |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
