Design Methodology › Step Four: Writing Process Code for the Dialogs › Writing the Source Code › Sample Premap Process Template: #1

Sample Premap Process Template: #1

       ADD
       MODULE NAME IS xxxDxxxx-PREMAP VERSION IS 1 LANGUAGE IS PROCESS
           MODULE SOURCE FOLLOWS
 !*****************************************************************
 !*              THE PREMAP PROCESS FOR THE xxxx DIALOG
 !******************************************************************
   INIT REC (xxx-message-work-record).
   KEEP LONGTERM ALL RELEASE.
 !
 ! THE ACTUAL LOGIC FOR SCROLLING BACKWARDS AND FORWARDS WILL
 ! BE DIFFERENT FOR EVERY DIALOG.  THEREFORE, THESE ROUTINES HAVE
 ! NOT BEEN CODED IN THIS TEMPLATE.
 !
 IF FIRST-TIME
    INIT REC (..................).
    MOVE SPACES TO xxx-function.

 IF xxx-function EQ 'NEXT'
    THEN
         CALL forwrd02.
 ELSE
    IF xxx-function EQ 'PREV'
       THEN
            CALL backwd03.

 ! THE FOLLOWING CODE IS TO BE USED WHEN YOU WANT TO BE NOTIFIED
 ! THAT ANOTHER USER IS UPDATING THE SAME RECORDS THAT YOUR
 ! DIALOG IS UPDATING.
 ! SUBSTITUTE THE ACTUAL DIALOG NAME FOR 'dialog name' AND THE
 ! ACTUAL RECORDS OF CONCERN FOR record-name.
 ! IF MORE THAN ONE LOCK IS REQUESTED, INCLUDE A NUMERIC IDENTIFIER
 ! WITH THE DIALOG NAME (e.g., CEMD1LIS, CEMD2LIS).
 ! KEEP LONGTERM SHOULD BE CODED DIRECTLY AFTER AN OBTAIN.

 KEEP LONGTERM 'dialog name' NOTIFY CURRENT record-name.

 !          (Main premap logic goes here)

 IF AGR-CURRENT-FUNCTION EQ 'DELETE FUNCTION'
    THEN DO.
       MOVE 98xxxx TO xxx-message-id.
       CALL messge98.
    END.
 !
 !  THIS MESSAGE WILL READ
 !       'TO COMPLETE DELETE ENTER PROPER RESPONSE'
 !
 IF xxx-msg-sub GT 0
    THEN
        DISPLAY MESSAGE TEXT xxx-msg-message-area.
 DISPLAY.

 !