×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
