IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

[Solved]Formdef and pagedef


IBM Mainframe Forums -> JCL & VSAM
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Tue Apr 27, 2021 2:14 am
Reply with quote

Hi! This is my first post in this forum. I am using below formdef and pagedef for printing DUPLEX letter information. When i submit the print job the letter is printed twice in duplex mode eventhough we specified copies=1. Please let me know what is wrong with below syntax.

FORMDEF XXXX
DUPLEX NORMAL
REPLACE YES
PRESENT PORTRAIT
DIRECTION DOWN;
COPYGROUP F2XXXX OFFSET 0 0
DUPLEX NORMAL;
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;

Thanks.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2023
Location: USA

PostPosted: Tue Apr 27, 2021 2:22 am
Reply with quote

Is this problem related to JCL, or to VSAM??
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Tue Apr 27, 2021 2:28 am
Reply with quote

Its more of JCL sysin statements
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2023
Location: USA

PostPosted: Tue Apr 27, 2021 2:51 am
Reply with quote

carymainframer wrote:
Its more of JCL sysin statements

None of so called “SYSIN statements” can be considered as something related to JCL, even a little bit. Nor to VSAM...

P.S.
Maybe, your question is about using the PSF (the Print Service Facility)?

You must know it better than me; nobody has to try guessing, what did you mean by your question...
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Tue Apr 27, 2021 3:03 am
Reply with quote

Yes its about PSF. Printer giving us 2 copies of same letter.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany

PostPosted: Tue Apr 27, 2021 8:59 am
Reply with quote

You seem to have TWO times DUPLEX NORMAL specified, isn't it? And please, use code tags when presenting code/data.
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Tue Apr 27, 2021 7:05 pm
Reply with quote

carymainframer wrote:
Hi! This is my first post in this forum. I am using below formdef and pagedef for printing DUPLEX letter information. When i submit the print job the letter is printed twice in duplex mode eventhough we specified copies=1. Please let me know what is wrong with below syntax.

//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;
COPYGROUP F2XXXX OFFSET 0 0
DUPLEX NORMAL;
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;
/*
Thanks.
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Tue Apr 27, 2021 7:06 pm
Reply with quote

Joerg.Findeisen wrote:
You seem to have TWO times DUPLEX NORMAL specified, isn't it? And please, use code tags when presenting code/data.


Thanks for the response.I have tried removing two instances for Duplex normal but still when printing i get two copies of same information.
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Wed Apr 28, 2021 1:56 am
Reply with quote

This issue is resolved.
Back to top
View user's profile Send private message
dneufarth

Active User


Joined: 27 Apr 2005
Posts: 420
Location: Inside the SPEW (Southwest Ohio, USA)

PostPosted: Wed Apr 28, 2021 7:36 am
Reply with quote

For the rest of us, how did you resolve it?
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2023
Location: USA

PostPosted: Wed Apr 28, 2021 5:43 pm
Reply with quote

FYI:
Many of the forum members do not read at all ANY code sample unless it is presented in THIS way -
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;                   
COPYGROUP F2XXXX OFFSET 0 0       
  DUPLEX NORMAL;                   
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
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2023
Location: USA

PostPosted: Thu Apr 29, 2021 7:30 am
Reply with quote

carymainframer wrote:
This issue is resolved.

It is rudeness to demand answers from other participants, and at the same time completely ignore any clarifying questions from them.
Back to top
View user's profile Send private message
carymainframer

New User


Joined: 27 Apr 2021
Posts: 10
Location: usa

PostPosted: Thu Apr 29, 2021 10:11 pm
Reply with quote

dneufarth wrote:
For the rest of us, how did you resolve it?


sorry for the delayed response. I used below sysin stmt.

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;   
/*

Coded for you , Next time Select the code and then click "Code".
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Fri Apr 30, 2021 12:15 am
Reply with quote

Topic locked. Thanks for the solution.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts What is meant by PAGEDEF=LSIM,FORMDEF... All Other Mainframe Topics 4
No new posts How can the SOC7 error be solved Mainframe Interview Questions 5
Search our Forums:

Back to Top