| View previous topic :: View next topic |
| Author |
Message |
MVS_blob
Beginner
Joined: 23 Oct 2007
Posts: 23
Topics: 9
|
 Posted: Tue Jul 21, 2009 4:53 am Post subject: SDSF data in column 1 |
 |
|
Hi all,
I've got a Easytrieve report produced on SDSF that I need to re-create using COBOL... Finished coding everything when I noticed that the Easytrieve report data starts in column 2, as per all SDSF outputs. However, the data in column 1 appears to be control data:
'1' for comencement of a new page?
'0' for start of row?
'-' for end of header?
As this report then is printed & distributed, I want to ensure my new report prints out correctly as well. i.e. header on the top of every page.
As a google search has failed me, can anyone shed any light on this, or show me where I can get more information?
Easytrieve:
| Code: | //STEP010 EXEC PGM=EZTPA00
//STEPLIB DD DSN=LIVE.S01PROD.LOADLIB,DISP=SHR
//PDSDD DD DSN=LIVE.S01PROD.EZMACLIB,DISP=SHR
//PRTOUT1 DD SYSOUT=A,HOLD=YES
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
FILE PRTOUT1 PRINTER
CUST-NAME W 10 A
CUST-NO W 5 N
JOB INPUT NULL
CUST-NAME = 'HOMER'
CUST-NO = 1234
PRINT DETAIL-LINE
CUST-NAME = 'MARGE'
CUST-NO = 4568
PRINT DETAIL-LINE
STOP
REPORT DETAIL-LINE PRINTER PRTOUT1 NOPAGE NODATE NOADJUST
TITLE 01 'REPORT TITLE'
LINE 01 CUST-NAME CUST-NO
/* |
Sample SDSF output:
| Code: | ----+----1----+----2----+
*************************
1REPORT TITLE
-
CUST-NAME CUST-NO
0HOMER 01234
MARGE 04568 |
|
|
| Back to top |
|
 |
CraigG
Intermediate
Joined: 02 May 2007
Posts: 202
Topics: 0
Location: Viginia, USA
|
| Posted: Tue Jul 21, 2009 8:59 am Post subject: |
|
|
| RTFM -- Write after advancing! |
|
| Back to top |
|
|
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Tue Jul 21, 2009 9:51 am Post subject: |
|
|
and use FBA as dcb parm.
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
MVS_blob
Beginner
Joined: 23 Oct 2007
Posts: 23
Topics: 9
|
| Posted: Wed Jul 22, 2009 8:09 am Post subject: |
|
|
thx.
| Code: | WRITE PRNTFILE-RECORD FROM RPT-HEADER1
AFTER ADVANCING PAGE |
did the trick. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
