Article

CHGASPCMD

    100              CMD        PROMPT(' Set ASP Threshold ')                                                           17/04/03
    200              PARM       KWD(ASP) TYPE(*CHAR) LEN(4) RSTD(*NO) +                                                 17/04/03
    300                           DFT('1') CHOICE(' Eg ''1'' ') +                                                       17/04/03
    400                           PROMPT('Enter ASP No: ''1'', ''2'' etc ')                                             17/04/03
    500                                                                                                                 17/04/03
    600              PARM       KWD(THRESHOLD) TYPE(*CHAR) LEN(4) RSTD(*NO) +                                           17/04/03
    700                           DFT('80') CHOICE(' Eg ''80'' ') +                                                     17/04/03
    800                           PROMPT('Enter ASP Threshold')                                                         17/04/03
                                  * * * *  E N D  O F  S O U R C E  * * * *
Related Topics: iSeries skills, VIEW ALL TOPICS

Back to top