| View previous topic :: View next topic |
| Author |
Message |
nbdtrjk1
Beginner
Joined: 12 Apr 2007
Posts: 76
Topics: 41
|
 Posted: Wed Jan 28, 2009 11:17 pm Post subject: FILEAID format Layout |
 |
|
All
The below JOB formating the input values into copybook layout using fileaid.
| Code: | //STEP01 EXEC PGM=FILEAID
//SYSLIST DD DSN=XXX.TEXTX.LAYOUT1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=133)
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD01 DD DSN=TESTX.XXX,
// DISP=SHR
//DD01M DD DSN=LIBRARY.COPYBOOK
// DISP=SHR
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 FPRINT MAP=COPYMBR,OUT=0
//* |
output
| Code: | 5 W-ACTION 2/AN 11
5 W-RESULT 2/AN 22
5 SECONDARY-KEYS 78/GRP
10 HH-KEY2 6/AN NBDTRJ
10 HH-REL2 3/AN RIN
10 ADR-KEY2 19/AN
10 ADR-REL2 3/AN
10 CUST-KEY2 13/AN
10 CUST-REL2 3/AN
10 ACT-KEY2 28/AN |
i want to do same process via REXX calling ISPEXEC fileaid routine.
Please help me on this..if possible pass the code also.
Thanks in advance |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
nbdtrjk1
Beginner
Joined: 12 Apr 2007
Posts: 76
Topics: 41
|
| Posted: Wed Feb 11, 2009 6:44 am Post subject: |
|
|
when i view the layout via file-aid i got below ouptut
| Code: | 5 GP-HW-FORMAT-FIELDS GROUP 9 27
10 GP-RCD-USER-KEY X(16) 10 27
10 GP-RCD-DATA-GROUP-ID XX 11 43
5 GP-FW-FORMAT-FIELDS REDEFINES GP-HW-FORMAT-FIELDS
5 GP-FW-FORMAT-FIELDS GROUP 12 27
10 GP-RCD-SHORT-USER-KEY X(14) 13 27
10 GP-RCD-DGID X(4) 14 41
5 GP-RCD-DATE S9(7)
5 GP-RCD-TIME S9(7) |
same process when done through jcl i am not able to see the redefines layout.
| Code: | 5 GP-RCD-REPORT-ID X(8)
5 GP-HW-FORMAT-FIELDS GROUP
10 GP-RCD-USER-KEY X(16)
10 GP-RCD-DATA-GROUP-ID XX
5 GP-RCD-DATE S9(7)
5 GP-RCD-TIME S9(7)
5 GP-RCD-OPERATOR X(20) |
please let me know what is the issue on this. |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Wed Feb 11, 2009 9:35 am Post subject: |
|
|
nbdtrjk1,
Did you forget to change the fileaid parm to FPRINT instead of RLPRINT?
Kolusu |
|
| Back to top |
|
|
nbdtrjk1
Beginner
Joined: 12 Apr 2007
Posts: 76
Topics: 41
|
| Posted: Wed Feb 11, 2009 9:49 pm Post subject: |
|
|
kolusu
my requirement is to show the copybook layout with values. if i use RLPRINT i will not get the values in the layout.
Thanks. |
|
| Back to top |
|
|
tcurrier
Intermediate
Joined: 10 Feb 2006
Posts: 188
Topics: 68
|
| Posted: Fri Dec 10, 2010 10:01 am Post subject: |
|
|
I have another FPRINT question....
USING:
//SYSIN DD *
$$DD01 FPRINT MAP=MAST
/*
I see alphanumeric fields only displayed in hex :
INSUREDS-NAME 33/AN X'80C5C9C7C....
Is there a way I can also see the character representation ? |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Fri Dec 10, 2010 12:44 pm Post subject: |
|
|
tcurrier,
IIRC , Use a DISPLAY command to display all in char format before FPRINT which *might* give you the desired results.
Kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
