Home page  Up a level  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 Sub-program 1  Display Fields CL subprogram 2  Display Fields Logicals  Display Fields create command source

Display Fields CL sub-program 1

/*************************************************************************/
/***        NAME: DSPFLD1                                              ***/
/*** DESCRIPTION: This program gets the physical file name if the      ***/
/*** requested file name is a logical.  It is called from the CL       ***/
/*** program DspFld.                                                   ***/
/***                                                                   ***/
/*** Copyright 1995 by John H. Daily III                               ***/
/*************************************************************************/
PGM                     PARM(&FILE &LIB)

             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             DCLF       FILE(DBR2)

             RCVF
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))

             CHGVAR     VAR(&FILE) VALUE(&APBOF)
             CHGVAR     VAR(&LIB) VALUE(&APBOL)

Endpgm:
 ENDPGM