Scribd
Upload
25 views

PGM CL

This document contains a menu program for an order department. The menu program displays a menu and calls different programs based on the user's response. The menu allows users to select options for customer inquiry, item inquiry, customer name search, orders by customer, existing order, or order entry. It then returns to display the menu again.

Uploaded by

balaas400
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
25 views

PGM CL

This document contains a menu program for an order department. The menu program displays a menu and calls different programs based on the user's response. The menu allows users to select options for customer inquiry, item inquiry, customer name search, orders by customer, existing order, or order entry. It then returns to display the menu again.

Uploaded by

balaas400
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 1

PGM /* ORD040C ORDER DEPT GENERAL MENU */

DCLF FILE(ORD040CD)

START: SNDRCVF RCDFMT(MENU)

SELECT

WHEN (&RESP=1) THEN(CALL CUS210) /* CUSTOMER INQUIRY */

WHEN (&RESP=2) THEN(CALL ITM210) /* ITEM INQUIRY */

WHEN (&RESP=3) THEN(CALL CUS210) /* CUSTOMER NAME SEARCH */

WHEN (&RESP=4) THEN(CALL ORD215) /* ORDERS BY CUST */

WHEN (&RESP=5) THEN(CALL ORD220) /* EXISTING ORDER */

WHEN (&RESP=6) THEN(CALL ORD410C) /* ORDER ENTRY */

WHEN (&RESP=7) THEN(RETURN)

ENDSELECT GOTO START

ENDPGM

SELECT

WHEN (&LGL)

WHEN (&INT *LT 0) THEN(CHGVAR &INT 0)

WHEN (&INT *GT 0) (DOUNTIL (&INT *EQ 0)) CHGVAR &INT (&INT - 1)

ENDDO

OTHERWISE (CHGVAR &LGL ’1’)

ENDSELECT

You might also like