5722WDS V5R1M0  010525                  LISTADO FUENTE SEU                            12/07/04 16:00:40                 PÁG.    1
  ARCHIVO FUENTE  . . . . .  QGPL/QCMDSRC
  MIEMBRO . . . . . . . . .  FILE
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
   
    100 /* Command Name : FILE                                              */                                          12/07/04
    200 /* Description  : This command will create a Display File Field     */                                          12/07/04
    300 /*                Description report (DSPFFD).                      */                                          12/07/04
    400 /*                                                                  */                                          12/07/04
    500 /*                Yo will can print or not this report.             */                                          12/07/04
    700 /*                                                                  */                                          12/07/04
   1100              CMD        PROMPT('Display File Field Description')                                                12/07/04
   1200              PARM       KWD(FILE) TYPE(*CHAR) LEN(10) MIN(1) +                                                  12/07/04
   1300                           PROMPT('File Name ')                                                                  12/07/04
   1400              PARM       KWD(LIBRARY) TYPE(*CHAR) LEN(10) DFT(*LIBL) +                                           12/07/04
   1500                           PROMPT('Library ')                                                                    12/07/04
   1501                                                                                                                 12/07/04
   1600              PARM       KWD(PRINT) TYPE(*CHAR) LEN(1) DFT(N) +                                                  12/07/04
   1700                           PROMPT('Print   (y/n)')                                                               12/07/04
   1800                                                                                                                 12/07/04
                                  * * * *  F I N  D E  F U E N T E  * * * *