CRTDSPF FILE(MYLIB/T1520DDJ) SRCFILE(QCPPLE/QADDSSRC)
CRTBNDC PGM(MYLIB/T1520EHD) SRCFILE(QCPPLE/QACSRC)
ADDLIBLE LIB(MYLIB)
CALL PGM(MYLIB/T1520EHD)
The output is:
+--------------------------------------------------------------------------------+ | PHONE BOOK | | Name: Smith, John | | Address: 2711 Westsyde Rd. | | Phone #: 721-9729 | | <ENTER> : Saves changes | | f3 : Exits with changes saved | | f5 : Brings back original field values | +--------------------------------------------------------------------------------+
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.