ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

date procedure example

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • date procedure example

    function in early stages of being developed.

    pass two required parms and one optional

    required:
    date in char format max length 10 *CHAR
    date type:
    //-----------------------------------------------------------
    // take the date and the format and validate
    // if invalid just set out error flag to 'Y'
    // and leave.
    //-----------------------------------------------------------
    // RPG-defined date formats and separators for Date data type
    //-----------------------------------------------------------
    // 2-Digit Year Formats
    // *MDY Month/Day/Year mmddyy 6
    // *DMY Day/Month/Year ddmmyy 6
    // *YMD Year/Month/Day yymmdd 6
    // *JUL Julian yyddd 5
    // *CYMD cent/yesr/m/d cyymmdd 7
    //----------------------------------------------------------
    // 4-Digit Year Formats
    // *ISO Int Standards Org yyyymmdd 08
    // *USA IBM USA Standard mmddyyyy 08
    // *EUR IBM European Std ddmmyyyy 08
    // *JIS Japan Indst Std yyyymmdd 08
    //----------------------------------------------------------


    optional is number of days: can pass positive or negative then date math is done!
    Attached Files
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com
Working...
X