/*           CRTCMD     CMD(mylib/OFFSETDAT) +                     */
/*                      PGM(mylib/OFFSETDAT) +                     */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(OFFSETDAT) +                        */
/*                      TEXT('Offset a date (calc new date)') +    */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM) +                                 */
/*                      HLPPNLGRP(mylib/OFFSETDAT) +               */
/*                      HLPID(OFFSETDAT)                           */

             CMD        PROMPT('Offset a date')
             PARM       KWD(OPR) +
                        TYPE(*LGL) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*ADD) +
                        SPCVAL( +
                          (*ADD '1') +
                          (*SUB '0')) +
                        PROMPT('Operation')
             PARM       KWD(YRS) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        DFT(*NONE) +
                        RANGE( +
                           +
                          999) +
                        SPCVAL( +
                          (*NONE ) +
                          (*MAX 999)) +
                        PROMPT('Years to offset')
             PARM       KWD(MOS) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        DFT(*NONE) +
                        RANGE( +
                           +
                          9999) +
                        SPCVAL( +
                          (*NONE ) +
                          (*MAX 9999)) +
                        PROMPT('Months to offset')
             PARM       KWD(DAS) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        DFT(*NONE) +
                        SPCVAL( +
                          (*NONE ) +
                          (*MAX 99999)) +
                        PROMPT('Days to offset')
             PARM       KWD(DATE) +
                        TYPE(*DATE) +
                        DFT(*CURRENT) +
                        SPCVAL( +
                          (*CURRENT 000000)) +
                        PROMPT('Date to offset from')
             PARM       KWD(OFFSETDAT) +
                        TYPE(*CHAR) +
                        LEN(7) +
                        RTNVAL(*YES) +
                        PROMPT('Date offset to')