Added June 2020
xcall TMENU, title, select
xcall TMEN2, title, select
TMENU.SBR and TMEN2.SBR display a standard menu of transaction operations as shown below. The text for the numbered elements is taken from SYS:SBRMSG.lan 007,001 thru 007,007 which can be adjusted for different languages or otherwise changed to your liking. This routine was part of the original AlphaACCOUNTING subroutine set.
Parameters
title (String) [in]
screen title to display in the upper left corner.
select (Num) [out]
returns the numerical option selected, or zero if Escape or Back-arrow is entered.
Example
The output of TMENU is as shown below. The output of TMEN2 is identical but includes only the first four items.
TMENU TITLE |
|
|
|
PLEASE SELECT APPLICATION _ |
|
|
|
1. ENTER (ADD) NEW TRX |
|
|
2. CHANGE EXISTING TRX |
|
|
3. DELETE EXISTING TRX |
|
|
4. PRINT TRX EDIT LIST |
|
|
5. POST TRX TO MAIN FILE |
|
|
6. CREATE BACKUP WORK FILE |
|
|
7. RESTORE BACKUP WORK FILE |
|
|
|
