Site hosted by Angelfire.com: Build your free website today!
Master Menu - Links the Master Page


Columns . . . :                     Edit                         GOLFP/SRCFILE
 SEU==>_______________________________________________________            PRTF
 FMT C* .....C*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 
        *************** Beginning of data *************************************

PAGE  116 - 120  --- Programming in RPG IV -- Yaeger, Judy -- Rev. ed. © 1997 

                 -------EXTERNALLY DESCRIBED PRINTER FILES-------


1.   STRPDM    -- ENTER
2.   3         -- ENTER

3.   Member:                                                                      
     Name  . . . . . . . . .   PGMP01       *ALL, name, *generic*               
     Type  . . . . . . . . .   PRTF         *ALL, type, *generic*, *BLANK

               -- ENTER       

4.   F6=Create -- ENTER

5.   Type choices, press Enter.                                                     
                                                                               
     Source file  . . . . . . . . . . > SRCFILE       Name, *PRV                    
       Library  . . . . . . . . . . . >   GOLFP       Name, *LIBL, *CURLIB, *PRV    
     Source member  . . . . . . . . .   PGM01         Name, *PRV, *SELECT           
     Source type  . . . . . . . . . .   PRTF          Name, *SAME, BAS, BASP...     
     Text 'description' . . . . . . .   *BLANK    

               -- ENTER                                  




File Extension - PRTF
Position 17 -     R
         19 - 28  Field positions (Rec Name)
         30 - 34  Define field length
         35 -     Data type
         36 - 37  Decimal Positions
         42 - 44  Starting position -> must be the beginning position 
         45 - 80  Constants enclosed with '  '

        
EDTCDE  --  EDTWRD /
SPACEA  --  SPACEB /The number of lines to space before or after printing
SKIPA   --  SKIPB  /The number of pages to skip before or after printing

	 NOTE: Each Record name is unique, unlike O specs where multiple E lines will accept 
	          different data.

 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++ 
        *************** Beginning of data ************************************* 
                R TITLE                     SKIPB(1)
                                            SPACEA(2)
                                           7DATE EDTCDE(Y)
                                          59'PAGE'
                                          63PAGNBR EDTCDE(3)
                                            SPACEB(2)
                R HEAD                      SPACEA(2)
                                           8'XXXXXXXXXXX'
                                          10'Date field format --> L'
                  DATEFLD         L       30
                R DETAIL                    SPACEB(2)
                  XXXXXX         6S 0      9
                  XXXXXX        10A       21
                  XXXXXX        15A       34
                  XXXXXX         6S 2     60EDTCDE(2)




You can specify an indicator to signal page overflow (but not OA-OF or 0V) by using keyword OFLIND

	F*ILENAME++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
	FXXXXXX    O    E             PRINTER OFLIND(*IN70)
        F*
	C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2Extended-FACTOR2++++++++++++++++++
        C                   IF        *IN70 = *ON
        C                   WRITE     HEAD
        C                   EVAL      *IN70 = *OFF
        C                   ENDIF

/*-------------------------------------------------------------------------*/

If you do not have the program listed on page 125, get it HERE.
The PF is also available   HERE.

Cut the code from your browser window and paste it to NOTE PAD. 
	1. Select Start
	2. Select Programs
	3. Select IBM AS400 Client Access
	4. Select Data Transfer to AS400
	5. (PC FILE NAME) find the data saved in NOTE PAD by selecting Browse. 
	6. (AS400 Library/file(Member) ) --> TYPE: YOUR_USER_ID/SRCFILE(FILENAME)
	7. Select Details
	8. Uncheck --> 'Use PC file description'
	9. 'Create AS400 Object' select --> 'Yes, create member'
       10. Click OK
       11. Click 'Transfer data to AS400'


	NOTE: The F specs for the program specify SPRSPC as the PF file 
                 name, rename it to match your file name.


Copyright ©1998 - 2001 J. Browning - All rights reserved.
Master Menu - Links the Master Page