RE: *AFPDS Printer file - how to use same horizontal positioning variable HPOS and vertical VPOS for multiple record formats

Then they won't overlay each other ie occupy the same memory.

I will try it, but COBOL doesn't automagically use the same memory for identically named variables like RPG.

Where can I find a list of font IDs?

Thanks


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of darren@xxxxxxxxx
Sent: Wednesday, April 04, 2012 12:35 PM
To: Midrange Systems Technical Discussion
Subject: Re: *AFPDS Printer file - how to use same horizontal positioning variable HPOS and vertical VPOS for multiple record formats

We use the same variable names regularly. Can't you just move the variable
definitions to the end, the way they compile wants?

R R1CONS FONT(&FONTID (*POINTSIZE
&PNTSIZ))

RCONS 210 POSITION(&DWN &ACC)
DWN 5S 3P
ACC 5S 3P
FONTID 10A P
PNTSIZ 4S 1P



From: "Stone, Joel" <Joel.Stone@xxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>,
Date: 04/04/2012 01:30 PM
Subject: *AFPDS Printer file - how to use same horizontal positioning
variable HPOS and vertical VPOS for multiple record formats
Sent by: midrange-l-bounces@xxxxxxxxxxxx



Is it possible to use the same positioning variable names in DDS (and then
COBOL)?

I cant get past the DDS compile - it wants PFLINE to appear BEFORE the
positioning variables.

Any better way to do this so I don't need to have two positioning variables
for EACH element on the page?

Thanks!







R PFOVLREC OVERLAY(&PFOVLNAME &PF_VPOS +
&PF_HPOS)
PF_VPOS 5S 3P
PF_HPOS 5S 3P
PFOVLNAME 8 P

R PFPAGESEGR PAGSEG(&PFPAGESEG &PF_VPOS +
&PF_HPOS )
PF_VPOS 5S 3P
PF_HPOS 5S 3P
PFPAGESEG 8 P

R PFLINER
PF_VPOS 5S 3P
PF_HPOS 5S 3P
PFLINE 80 POSITION(&PF_VPOS &PF_HPOS )

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.