Sample As400 Programs
Sample As400 Jcl Programs
Hi, I would suggest to check the pages of IBM. At least I do not know of any AS400 / iSeries documentation / sample applications that Microsoft offer. A complete list of all sample programs for developing applications which use IBM i Access for Windows.
SEE THIS CODE WHERE &PERIODO COULD BE YOUR SCREEN VAR &SELECT IS THE SQL STATMENT THE CALL AT THE END IS A RPG PROGRAM WHICH SWEEP THE RESULT FILE. PGM PARM (&PERIODO) DCL VAR(&PERIODO) TYPE(.CHAR) LEN(6) DCL VAR(&SELECT) TYPE(.CHAR) LEN(100) CHGVAR VAR(&SELECT) VALUE( + ‘MTPERN.EQ ‘ ‘”‘ &PERIODO + ‘”‘) OPNQRYF FILE((WCLMTL18)) QRYSLT(&SELECT) + KEYFLD((MTDLRN) (MTWCLM)) CALL PGM(SGNWSJPR). SORRY BY MY BAD ENGLISH. Since none of the above is RPG/400, I’m not sure what good it is. I can provide examples, but I need to have an answer to my question first. Do you want examples of RPG/400 or do you want examples of the more modern RPG IV?
RPG/400 is RPG III. Most programmers now would be far more interested in RPG IV, including how it be used as ILE RPG. RPG/400 can be pretty ugly by comparison. SEE THIS CODE WHERE &PERIODO COULD BE YOUR SCREEN VAR &SELECT IS THE SQL STATMENT THE CALL AT THE END IS A RPG PROGRAM WHICH SWEEP THE RESULT FILE. PGM PARM (&PERIODO) DCL VAR(&PERIODO) TYPE(.CHAR) LEN(6) DCL VAR(&SELECT) TYPE(.CHAR) LEN(100) CHGVAR VAR(&SELECT) VALUE( + 'MTPERN.EQ ' ' &PERIODO + ') OPNQRYF FILE((WCLMTL18)) QRYSLT(&SELECT) + KEYFLD((MTDLRN) (MTWCLM)) CALL PGM(SGNWSJPR). SORRY BY MY BAD ENGLISH.
Since none of the above is RPG/400, I'm not sure what good it is. I can provide examples, but I need to have an answer to my question first. Do you want examples of RPG/400 or do you want examples of the more modern RPG IV? RPG/400 is RPG III. Most programmers now would be far more interested in RPG IV, including how it be used as ILE RPG.
Sample As400 Interview Questions
RPG/400 can be pretty ugly by comparison. Tom Please enter an answer. Send me notifications when members answer or reply to this question.
The following is an RPG subfile example with a selection option. This example loads the entire subfile at one time. Depending on your file, this may not be appropriate for your situation. Driver download ide to usb.
If the file loads more than a couple of subfile pages, review the example to load one page at a time.