AS400

PGM : TESTHEX H DftActGrp(*NO) Option(*SRCSTMT)    D charval         S             26a   inz('123.00')            DRunCommand       PR                  ExtPgm('QCMDEXC')                DpCommand                     2560    const                            DPCmdLen                        15  5 const                            DpCommand         S           2560                                    DPCmdLen          S             15  5 inz(2560)                          /Free                                                                              Charval  = %replace('':Charval:%Scan('.':CharVal):1);             // to remove '.'              If %Rem(%len(%trim(Charval)):2) = 1;                 //length of numeric value must be odd                                                                                                      //So When F is added at end it always even        Charval = 'X' + '''' + %Trim(Ch

H DftName(TESTRPG) DftActGrp(*No) ActGrp(*New)      H Option(*srcstmt:*NoDebugIo)                        D*                                                  D*                                                  D vDate           S               d    datfmt(*ISO)  d wrk_date        DS                                D wrk_Cent                       2                  d wrk_year                       2                  d Wrk_Dates1                     1                  d wrk_month                      2                  d Wrk_Dates2                     1                  d wrk_day                        2                  d Wrk_DateC       s             10                   * 18/10/22 - 2018/10/22                            D Dtymd           s               D   DATFMT(*YMD)   * 10/22/18 - 2018/10/22                            D Dtusa           s               D   DATFMT(*USA)   * 2018-10-22  - 2018/10/22                          D Dtiso           s               D   dat

H Option(*SrcStmt:*noDebugIo)                                       *                                                                   * Test Program for Data area                                       *                                                                  D                                                                   *                                                                  DTestDtara        S             50    DTAARA('TESTDTARA')   *                                                                  DTestDaDs         DS                                                DDaDate                   1     10                                  DDaTimeS                 14     39                                   *                                                                  DvDateDa          S               D                                DvTimeSDa         S               Z                                  /Free