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                          ...

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...

H Option(*SrcStmt:*noDebugIo)                                       *                                                                   * Test Program for Data area                                       *                                                                  D                                                      ...