TSTCOPY.rpgle

**free
/if not defined(TSTCOPY)

//     ------
dcl-Ds prDate template qualified;
    CC char(2) ;
    YY char(2) ;
    MM char(2) ;
    DD char(2) ;
end-Ds prDate;

//     -------------------
dcl-Pr four_columns_to_iso date;
    *N char(2) CONST;
    *N char(2) CONST;
    *N char(2) CONST;
    *N char(2) CONST;
end-Pr four_columns_to_iso;
//     -------------------

//     -------------------
dcl-Pr iso_to_four_columns likeDs(prDate);
   *N date const;
end-Pr iso_to_four_columns;
//     -------------------

/define TSTCOPY
/endif