Home page  Return to Display Fields Program  Display Fields command source  Display Fields control language source  Display Fields display file source  Display Fields help PanelGroup source  Display Fields RPG Source  Display Fields printer file source  Display Fields CL Subprogram 1  Display Fields CL subprogram 2  Display Fields Logicals  Display Fields create command source

Display Fields Command source

/**************************************************************************/
/***        NAME: DSPFLD                                                ***/
/*** DESCRIPTION: Display the fields and field attributes, key fields   ***/
/*** and database relations for a file.  Separate windows show the key  ***/
/*** fields, select/omit fields and values, and the database relations. ***/
/*** Query/400 can be run on the file showing in the window.  A total   ***/
/*** of four files can be loaded and scrolled through.  Files can be    ***/
/*** closed and opened without exiting the program.  Pressing F14 will  ***/
/*** show a window that lists all of the files with their key fields.   ***/
/*** Pressing the Print key will print the file listing using this      ***/
/*** printer file.  It will list all of the fields, the key fields, and ***/
/*** the database relations with their key fields.                      ***/
/***                                                                    ***/
/*** Copyright 1995 by John H. Daily III                                ***/
/**************************************************************************/
             CMD        PROMPT('Display File Fields')

             PARM       KWD(FILE) TYPE(QUAL) MIN(1) MAX(4) +
                          PROMPT('Name of file to display')
             PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*DISPLAY) SPCVAL((*DISPLAY N) (*PRINT +
                          Y)) CHOICE('*DISPLAY, *PRINT') +
                          PMTCTL(*PMTRQS) PROMPT('Display or Print')

QUAL:        QUAL       TYPE(*NAME) LEN(10) CHOICE('Name')
             QUAL       TYPE(*CHAR) LEN(10) DFT(*LIBL) +
                          CHOICE('*CURLIB, *LIBL, Name') +
                          PROMPT('Library')