IBM i (AS400) fans only - tips and tricks to start RPGfree programming - simple examples of RPG Free

#IBMiSample A simple CMD and CLP to send a DB2 file as CSV attachment.                                                                            /************************************/  SNDCSV.CMD              CMD        PROMPT('Send DB2 file as CSV attachm.') /* COMMAND PROCESSING PROGRAM IS: SNDCSVCL */              PARM       KWD(SNDFIL) TYPE(*CHAR) LEN(10) MIN(1) PROMPT('DB2 +                           file to send as CSV')              PARM       KWD(LIBR00) TYPE(*CHAR) LEN(10) PROMPT('Library') +                           DFT(*LIBL)              PARM       KWD(MAIL00) TYPE(*CHAR) LEN(50) MIN(1) PROMPT(' +                           Email destination address')              PARM       KWD(SUBJCT) TYPE(*CHAR) LEN(100) MIN(1) PROMPT(' +                           Email subject')              PARM       KWD(BODY00) TYPE(*CHAR) LEN(500) MIN(1) PROMPT(' +                           Email body') /************************************/  Compile

  #IBMiSample Remember that you need my CLANA00F file to compile the following program. So, f irst of all look at this post and compile and populate these files to use this example. A01ARPCL.CLP              PGM                                                              DCL        VAR(&PPCCL0) TYPE(*DEC)   LEN(7 0)                    DCL        VAR(&PPEXIT) TYPE(*CHAR)  LEN(1)                      DCL        VAR(&OUTPU1) TYPE(*CHAR)  LEN(1)                      DCL        VAR(&OUTPU7) TYPE(*CHAR)  LEN(7)                      DCL        VAR(&OUTPU8) TYPE(*CHAR)  LEN(8)                      CALL       PGM(A01ARP) PARM(&PPEXIT &PPCCL0)                     CHGVAR     VAR(&OUTPU1) VALUE(&PPEXIT)                           CHGVAR     VAR(&OUTPU7) VALUE(&PPCCL0)                           CHGVAR     VAR(&OUTPU8) VALUE(&OUTPU1 *CAT &OUTPU7)              SNDPGMMSG  MSG(&OUTPU8)                                          ENDPGM         

#IBMiSample This is a CLLE! Compile with: CRTBNDCL PGM(DATEDISPLC) SRCFILE(QCLSRC) SRCMBR(DATEDISPLC) DATEDISPLC.CLLE /**************************************************************/ /* add/subtract days to a date                                */ /* Try with: CALL DATEDISPLC PARM('270219' X'0000005F')       */ /**************************************************************/              PGM        PARM(&DATE &DISPLACEM)                                   DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                            DCL        VAR(&DISPLACEM) TYPE(*DEC) LEN(6 0)                      DCL        VAR(&LILIAN) TYPE(*CHAR) LEN(4)                                                                                              CALLPRC    PRC(CEEDAYS) PARM((&DATE) ('DDMMYY') +                                (&LILIAN) (*OMIT))                                     CHGVAR     VAR(%BIN(&LILIAN)) VALUE(%BIN(&LILIAN) + +                   

#IBMiSample This example gets current time in format HHMMSS.              PGM                                                   DCL        VAR(&TIME) TYPE(*CHAR) LEN(6)              RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&TIME)                SNDPGMMSG MSG(&TIME)                                  ENDPGM