Programming and Coding Examples › Command Source Example

Command Source Example

     CMD             PROMPT(YYY0052)
   /*T: Display Help Text.              */   
        /*Z: CRTCMD PGM(YDDSHPC@)ALLOW(*INTERACT *IPGM *EXEC)*/
   /*Z:                                    PMTFILE(YYYYPMT)  */
      
  /* = = = = = = = = = = = = = = = = = = = = = = = = = = = */
       /*H: SYSTEM             : Widget Processing System
        /*H: PROGRAMMER         : J. Sloan
        /*H: DATE                       : 24/04/85
        /*H: (C) COPYRIGHT 1985 WIDGET CORPORATION
        /* = = = = = = = = = = = = = = = = = = = = = = = = = = = */ 

        /*H:    P. Help file name and library */
                  PARM KWD(FILE) TYPE(FL)                                                                                 PROMPT(YYF1001)FILE(*IN)MIN(1) + SNGVAL((*PRV))
  FL:              QUAL TYPE(*NAME) DFT(QTXTSRC)              /* File */
             QUAL TYPE(*NAME) PROMPT(YYL0001) /* Library */ +   
                                       DFT(*LIBL) SPCVAL((*LIBL))
        /* . . . . . . . . . . . . . . . . . . . . . . . . . . . */
       /*H:    P. Help member name    */
         PARM             KWD(MBR) TYPE(*NAME) PROMPT(YYF1051) +
                                   DFT(*FILE)   SPCVAL(*FILE)
        /* . . . . . . . . . . . . . . . . . . . . . . . . . . . */
       /*H:    P. Label            */               :
            PARM     KWD(MBR) TYPE(*CHAR) LEN(30) PROMPT(YYL1011) +  
                         DFT(*NONE)   PMTCTL(*PMTRQS)