|
View previous topic :: View next topic
|
| Author |
Message |
carymainframer
New User
Joined: 27 Apr 2021
Posts: 10
Location: usa
|
|
|
|
This is my second post in this forum. I have a requirement to make sure both front and back pages to be printed in same direction. Right now with below syntax my back page is printed in opposite direction. Please advise if i need change anything in my current syntax.
| Code: |
//PPFA EXEC PGM=AKQPPFA
//SYSPRINT DD SYSOUT=*
//FORMLIB DD DSN=XXX.FDEFLIB,DISP=SHR
//PAGELIB DD DSN=XXX.PDEFLIB,DISP=SHR
//SYSIN DD *
FORMDEF XXXX
DUPLEX NORMAL
REPLACE YES
PRESENT PORTRAIT
DIRECTION DOWN;
OFFSET 0 0 ;
OVERLAY XXXX;
SUBGROUP BOTH COPIES1 ;
PAGEDEF XXXX
REPLACE YES;
FONT GT12;
PAGEFORMAT P2XXXX
DIRECTION DOWN
WIDTH 8.5 IN HEIGHT 11 IN;
SETUNITS LINESP 6 LPI;
PRINTLINE REPEAT 53 CHANNEL 1
FONT GT12
POSITION 0.00 1.90;
PRINTLINE REPEAT 1 CHANNEL 3
FONT GT12
POSITION 0.00 0.30;
/* |
|
|
| Back to top |
|
 |
dneufarth
Active User
Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)
|
|
| Back to top |
|
|
carymainframer
New User
Joined: 27 Apr 2021
Posts: 10
Location: usa
|
|
|
|
Thanks for the response. I tried with direction as across and back but unfortunately its not working. |
|
| Back to top |
|
|
carymainframer
New User
Joined: 27 Apr 2021
Posts: 10
Location: usa
|
|
|
|
Tried with following Syntax. Now my second page prints in correct direction but the header alone prints in opposite direction.
| Code: |
//SYSIN DD *
FORMDEF LHHDLD
DUPLEX NORMAL
REPLACE YES
PRESENT PORTRAIT
OFFSET 0 0;
OVERLAY LHHDLD;
SUBGROUP BOTH COPIES 1 OVERLAY LHHDLD;
PAGEDEF LHHDLD WIDTH 8.5 IN HEIGHT 11 IN
REPLACE YES;
FONT GT12;
SETUNITS LINESP 6 LPI;
PAGEFORMAT P2FRONT DIRECTION DOWN ;
PRINTLINE CHANNEL 1 POSITION 0.00 1.90;
CONDITION GOTOBACK START 1 LENGTH 1
WHEN GE X'00' AFTER SUBPAGE NULL PAGEFORMAT P2BACK ;
PRINTLINE REPEAT 53 ;
PAGEFORMAT P2BACK DIRECTION UP ;
PRINTLINE CHANNEL 1 POSITION 0.00 1.90;
CONDITION GOTOFRNT START 1 LENGTH 1
WHEN GE X'00' AFTER SUBPAGE NULL PAGEFORMAT P2FRONT ;
PRINTLINE REPEAT 53 ;
/* |
|
|
| Back to top |
|
|
|
|
