diff --git a/QPNLSRC/Rules.mk b/QPNLSRC/Rules.mk index b4f442a..ed15a03 100644 --- a/QPNLSRC/Rules.mk +++ b/QPNLSRC/Rules.mk @@ -1,3 +1,9 @@ SAMHELP.PNLGRP: SAMHELP-Help_Application_Sam.PNLGRPSRC -SAMMNU.MENU: SAMMNU-Main_menu_application_SAMPLE.MENUSRC \ No newline at end of file +SAMMNU.MENU: SAMMNU-Main_menu_application_SAMPLE.MENUSRC + +FOO.FILE: foo.mnudds +FOO1.MSGF: fooqq.mnucmd +FOO1.MSGF: private TEXT = sample msgf +FOOP.MENU: FOO.FILE FOO1.MSGF +FOOP.MENU: private TEXT = sample menu \ No newline at end of file diff --git a/QPNLSRC/foo.mnudds b/QPNLSRC/foo.mnudds new file mode 100644 index 0000000..121710d --- /dev/null +++ b/QPNLSRC/foo.mnudds @@ -0,0 +1,11 @@ + A DSPSIZ(24 80 *DS3) + A R MENU + A CF03(03 'Exit') + A 1 2'Main Menu' + A DSPATR(HI) + A 3 2'Select an option:' + A OPT 1A B 5 2 + A 7 2'1. Display library list' + A 8 2'2. Set Current library' + A 11 2'F3=Exit' + A MSG 50A O 23 2DSPATR(HI) \ No newline at end of file diff --git a/QPNLSRC/fooqq.mnucmd b/QPNLSRC/fooqq.mnucmd new file mode 100644 index 0000000..6579624 --- /dev/null +++ b/QPNLSRC/fooqq.mnucmd @@ -0,0 +1,3 @@ +FOOQQ,1 +0001 DSPLIBL +0002 CHGCURLIB TOBITEST \ No newline at end of file