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