View previous topic :: View next topic
|
Author |
Message |
rahulbank
New User
Joined: 25 Sep 2008 Posts: 66 Location: Bengaluruuuuuu
|
|
|
|
Code: |
//IEBPTPCH EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=SMGT.HEALTHCK.REPORT,DISP=SHR
//SYSUT2 DD DSN=SMGT.TRY,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXNAME=4,MAXFLDS=1
MEMBER NAME = GYGY
MEMBAR NAME = HUHU
RECORD FIELD=(80)
/*
|
Using this job I'm able to transfer some members from PDS to PS...however the format of the first member gets dispersed/changed(is different from the original format) and only the last member is in a proper format...can someone please suggest how to print the members to the PS just the way it is.... |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Did you already try the TSO PRINTDS command? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
1. You've got a typo -- MEMBAR NAME = is not going to work.
2. MEMBER NAME = will not work since there can be no spaces around the equal sign. This is one reason we encourage posting exact JCL and not your interpretation of the JCL -- and use BBcode to make spacing obvious.
3. Did you add the carriage control character to the SMGT.TRY file LRECL (so it is one more than the LRECL of SMGT.HEALTHCK.REPORT)? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
For 80 byte records, I always find that the PUNCH option works OK.
In fact I even tested it before posting. |
|
Back to top |
|
|
rahulbank
New User
Joined: 25 Sep 2008 Posts: 66 Location: Bengaluruuuuuu
|
|
|
|
My i/p dsn is
Record length . . . : 121
Block size . . . . : 27951
and o/p dsn is
Record length . . . : 122
Block size . . . . : 28182
This is my JCL:
//IEBPTPCH EXEC PGM=IEBPTPCH
//SYSUT1 DD DSN=SMGT.HEALTHCK.REPORT,DISP=SHR
//SYSUT2 DD DSN=SMGT.TRY1,DISP=(OLD,CATLG,DELETE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXNAME=4,MAXFLDS=1
MEMBER NAME=HC1A01
MEMBER NAME=HC1B01
MEMBER NAME=HC1C01
MEMBER NAME=HC1D01
RECORD FIELD=(80)
STill the o/p even though the 1 character is there in LRECL of the o/p dsn more it does not work....the punch option works fine but still it is not as good as when printing all the members at the same time using print...
I am facing this problem only when I try to print or punch selective members if I want to print all o/p is good (without member name coded).... |
|
Back to top |
|
|
|