RE: Can someone post basic PRTF COde?

["Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>]

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