I was thinking on my flight, that is it possible to combine the Prtf which I
really only need one field to be Barcode, instead of re-writing the legacy to a
PRTF, which is very cumbersome for the following reasons:
there is alot of formats conditioned by various indicators, using the same field
name but it won't compile as a PRTF unless you make new format names for each
case. \
2. I am still not happy replacing the Overflow logic controlled by the cycle
with some kind of line counting.
So can I have the PRTF by itself, just the one field and I think I can get it to
print on first line, it really just has to be on the printout for use for UPS
Worldship?
Will this work coexisting ?
Tot Ziens,
Adam
--- On Wed, 5/21/08, Kevin Bucknum <Kevin@xxxxxxxxxxxxxxxxxxx> wrote:
From: Kevin Bucknum <Kevin@xxxxxxxxxxxxxxxxxxx>
Subject: RE: Can someone post basic PRTF COde?
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date: Wednesday, May 21, 2008, 1:38 PM
Check the infocenter for specs and examples, but the dds spec is at
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzakd/rzakd.
pdf
A*--- Report heading
A*---
A R HDR1 SKIPB(04)
A SPACEA(1)
A*
A 1'DATE:'
A +1DATE EDTWRD('0 / / ')
A CTPRNC R 46REFFLD(RMCTL/CTPRNC *LIBL/MCTL)
A CTPRCD R 119REFFLD(RMCTL/CTPRCD *LIBL/MCTL)
A 123'PAGE'
A +1
A 09 PAGNBR
A EDTCDE(Z)
A*
A 1'TIME:'
A SPACEB(1)
A +1TIME EDTWRD('0 : : ')
A @PTTL1 30 51
A $PGM 10 123
A SPACEA(1)
A*
A 1'USER:'
A $USER 10 +1
A @PTTL2 30 51
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Adam West
Sent: Wednesday, May 21, 2008 7:58 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Can someone post basic PRTF COde?
I am not getting off the ground. Perhaps there is some code to look
at?
Can't find the IBM manual either.
200 A R HDG
300 A SKIPB(005)
400 A* SPACEA(001)
500 A*
600 A 'MY TECHNOLOGIES
INC.
CPD7486-*
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
ATTENTION:
The information contained in this message and/or attachments is intended only
for the person or entity to which it is addressed and may contain confidential
and/or privileged material. Any review, retransmission, dissemination or other
use of, or taking of any action in reliance upon, this information by persons
or
entities other than the intended recipient is prohibited. If you received this
in error, please contact the sender and delete the material from any system
and
destroy any copies.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/rpg400-l.
midrange.com
