AS/400 Programmer's Handbook

I recommend the AS/400 Programmer's Handbook also.
The author supplies RPG III and RPG IV code examples (listed below) that you
can upload to your AS/400.
Eric Lehti
==============  examples noted below =================
CL EXAMPLE - ERROR HANDLING
CL EXAMPLE - MESSAGE PROMPTING
CL EXAMPLE - PHYSICAL FILE I/O
CL EXAMPLE - STRING MANIPULATION WITH %SST
CL EXAMPLE - STRING CONCATENATION
CL EXAMPLE - STRING SCANNING WITH API QCLSCAN
CL EXAMPLE - OPNQRYF SIMPLE SORT
CL EXAMPLE - OPNQRYF SIMPLE SELECTION
CL EXAMPLE - OPNQRYF using Date Built In Functions
CL EXAMPLE - OPNQRYF using string Built In Functns
CL EXAMPLE - OPNQRYF using Joins
CMD to WRKCFGSTS on a device
CCP - WRKCFGSTS *DEV
CMD to CHGUSRPRF STATUS(*ENABLED)
CCP - CHGUSRPRF *ENABLED
CMD - CRTMLTDUP Command
PNL - PANEL GROUP HELP TEXT DISPLAY FILE
PNL - PANEL GROUP HELP TEXT
PNL - PANEL GROUP EXAMPLE RPG
PNL - PANEL GROUP HELP TEXT FOR EU COMMAND
RPG - LOADING A COMPILE-TIME TABLE
RPG III - LOADING A COMPILE TIME TABLE
RPG - LOADING A PRE-RUN TIME TABLE
RPG III - LOADING A PRE-RUN TIME TABLE
RPG - COMPILE-TIME ARRAY WITH XFOOT TOTALS
RPG III - COMPILE TIME ARRAY WITH XFOOT TOTALS
RPG - PRE-RUN TIME ARRAY WITH XFOOT & UPDATE
RPG III - PRE-RUN TIME ARRAY WITH XFOOT & UPDATE
RPG - SORTING OVERLAYING RUN-TIME ARRAYS
RPG - DATA STRUCTURE FIELD PARSING
RPG III - USING DATA STRUCTURES
RPG - MULTIPLE OCCURANCE DATA STRUCTURE
RPG III - MULTIPLE OCCURENCE DATA STRUCTURE
RPG - ADDING DURATIONS TO DATES
RPG - SUBTRACTING DURATIONS FROM DATES
RPG - DETERMINING SPAN BETWEEN TWO DATES
RPG - EXTRACTING PORTIONS OF DATES
RPG - TESTING FOR DATE VALIDITY
RPG - SIMPLE WINDOW DISPLAY
RPG - SIMPLE WINDOW DISPLAY
RPG - ENHANCED DISPLAY BOXES & BUTTONS
RPG - ENHANCED DISPLAY BOXES & BUTTONS
RPG - ENHANCED DISPLAY MENU BAR
RPG - ENHANCED DISPLAY MENU BAR
RPG - MASTER/DETAIL PRINT, RPG CYCLE, INT PRTF
RPG - MASTER/DETAIL PRINT, NO CYCLE, INT PRTF
RPG - PASSING PARAMETERS
RPG - RECEIVING PARAMETERS
RPG - PASSING PARAMETERS WITH EXTERNAL DEFINITION
RPG - RECEIVING PARAMETERS WITH EXT DEFINITION
RPG - UPDATING A NAMED DATA AREA
RPG - UPDATING THE LOCAL DATA AREA
RPG - CLEAR AND SEND ENTRY TO DATA QUEUE
RPG - RECEIVE ENTRY FROM DATA QUEUE
RPG - Module using Import/Export calls RPG033R
RPG - Module using Import/Export called by RPG032R
RPG - SIMPLE PARAMETER PASSING IN RPG/400
RPG - SIMPLE PARAMETER RECEIVING IN RPG/400
RPG - PASS PARAMETERS EXT DEFINED IN RPG/400
RPG - RCV PARAMETERS EXT DEFINED IN RPG/400
RPG - UPDATE A NAMED DATA AREA IN RPG/400
RPG - UPDATE THE LOCAL DATA AREA IN RPG/400
RPG - CLEAR & SEND ENTRY TO DATA QUEUE IN RPG400
RPG - RECEIVE ENTRY FROM DATA QUEUE IN RPG400
RPG - MASTER/DETAIL REPORT USING CYCLE NON_ILE
SIMPLE LOAD ALL SUBFILE DISPLAY FILE
SIMPLE LOAD ALL SUBFILE
LOAD FORWARD SUBFILE DISPLAY FILE
LOAD FORWARD SUBFILE
SINGLE PAGE SUBFILE DISPLAY FILE
PAGE-AT-A-TIME SUBFILE EXAMPLE
LOAD ALL SUBFILE WITH SELECTION DISPLAY FILE
LOAD ALL SUBFILE WITH SELECTION
LOAD ALL SUBFILE WITH INPUT/UPDATE DISPLAY FILE
LOAD ALL SUBFILE WITH INPUT/UPDATE/DELETE
SIMPLE LOAD ALL SUBFILE - NON-ILE
LOAD FORWARD SUBFILE - NON-ILE
PAGE-AT-A-TIME SUBFILE NON-ILE
LOAD ALL SUBFILE WITH SELECTION - NON-ILE
LOAD ALL SUBFILE INPUT/UPDATE/DELETE  NON-ILE

-----Original Message-----
From: dbryant@banpharm.com [mailto:dbryant@banpharm.com]
Sent: Thursday, April 06, 2000 7:56 AM
To: RPG400-L@midrange.com
Subject: Re: Printer Control Codes

I don't know about "on-line", but we purchased a book written by Mark McCall
named "The AS/400 Programmer's Handbook" (A Toolbox of Examples for Every
AS/400
Programmer).  It is wonderful!!  You can purchase it from Midrange
Computing. By
the way, Mark's email address is in the back of this book. I have emailed
him on
several occasions and he has always responded by the next day. He is so nice
and
very helpful.  I can't say enough good things about him or his book...

Darlene Bryant

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---