MVSFORUMS.com :: View topic - Convert a Partitioned(PDS) file to Sequential(PS) file.

Convert a Partitioned(PDS) file to Sequential(PS) file.

through

[^/[Print]\]

MVSFORUMS.com -> Utilities

#1: Convert a Partitioned(PDS) file to Sequential(PS) file. Author: kmkarth, Location: India

Posted: Tue Dec 03, 2002 11:33 am
—

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

#2: Author: Nila, Location: Chennai, India

Posted: Thu Dec 26, 2002 7:53 am
—
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 = "

MVSFORUMS.com -> Utilities

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1