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

  #IBMiSample This is the PANEL source. Compile with  CRTPNLGRP PNLGRP(MyLib/PNLGR1) SRCFILE(MyLib/MySrcFile) SRCMBR(PNLGR1)   Member      Type   PNLGR1      PNLGRP .*********************************************************** .*    THIS IS HELP PANEL GROUP FOR HOTELIBMi               * .*********************************************************** :PNLGRP.                                                      .***********************************************************  .*    THIS IS HELP PANEL OTO500                            *  .***********************************************************  :HELP NAME=OTO500.Print arrivals Help panel                   :P.This is a example help text                                :P.This is another example help text                          :EHELP.                                                       .***********************************************************  .*    THIS IS SINGLE FIELD HELP PANEL                      *  .*******************************

#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                                  

#IBMiSample AS5502.RPGLE - Procedure with a parameter and return value       **FREE          Ctl-Opt DFTACTGRP(*No);          Dcl-S gMyVar Char(13) Inz('<---Hello--->');          Dcl-S pValue2 Char(3);          Dcl-S pValue3 Char(3);          Dsply gMyVar;          pValue2='!__';          pValue3='__!';          gMyVar = MyProc('Goodbye':pValue2:pValue3);          Dsply gMyVar;          *InLR = *On;        Return;        Dcl-Proc MyProc;          Dcl-Pi *N Char(13); // Char(13) the length of returned                                   // parameter. It is like gMyVar Char(13)          pValue1 Char(7) Const;          pValue2 Char(

#IBMiSample QSQGNDDL API generates the SQL data definition language statements from a database object. Here's how to use it. How to get SQL CREATE TABLE specification from DDS

#IBMiSample In this example, the  OTDTP0  field is numeric 6 with 0 decimal places. It should contain a number rapresenting a DATE in yymmdd (i.e 210208 - February 8, 2021) or ddmmyy format  (i.e 080221 - February 8, 2021). The following instructions turns yymmdd to ddmmyy or viceversa (the other way around). OTDTP0 zoned(6); OTDTP0 = %dec(%char(%date(OTDTP0:*ymd):*dmy0):6:0); // yymmdd to ddmmyy OTDTP0 = %dec(%date(OTDTP0:*ymd):*dmy);  // yymmdd to ddmmyy I appreciate all the comments made on this blog.

#IBMiSample Run this SQLRPGLE to create and populate the files to use my further examples: **free //***************************** //* create CLANA00F & OTORD00F* //***************************** ctl-opt option(*nodebugio) dftactgrp(*no) actgrp(*new); // The EXEC SQL is never executed. It is used at compile time. exec sql Set Option Commit = *None; // Create File exec sql CREATE or REPLACE TABLE CLANA00F ( CLANN0 CHARACTER(01) NOT NULL WITH DEFAULT, CLCCL0 NUMERIC(7, 0) GENERATED ALWAYS AS IDENTITY PRIMARY KEY, CLCIB0 CHARACTER(03) NOT NULL WITH DEFAULT, CLNOM0 CHARACTER(50) NOT NULL WITH DEFAULT ) RCDFMT CLANA ; // Create index exec sql CREATE INDEX CLANA01L ON CLANA00F (CLCCL0 ASC); // Fill values exec sql INSERT INTO CLANA00F (CLCIB0, CLNOM0) VALUES ('EN ','Rod Stewart'); exec sql INSERT INTO CLANA00F (CLCIB0, CLNOM0) VALUES ('EN ','Bobby McFerrin'); exec sql INSERT INTO CLANA00F (CLCIB0, CLNOM0) VALUES ('IT ','Adriano Celentano'); e