Completing the Department Application › Defining Process Modules Using IDD › Step 3: Define Process Module XXXDUPD-PA2

Step 3: Define Process Module XXXDUPD-PA2

Process module XXXDUPD-PA2 is the final process module that you will create for dialog XXXDUPD. Sample commands for process module XXXDUPD-PA2 are shown below. Statements in this process module allow the end user to cancel the current modification or deletion operation.

MOVE 'Y' TO XXX-WK-FIRST-TIME.                                     -┐
INITIALIZE (DEPARTMENT).                                           -┘  1


IF AGR-CURRENT-FUNCTION EQ 'MODDEP'                                -┐
THEN                                                                │  2
    DISPLAY MSG TEXT                                                │
        'MODIFICATION CANCELLED--SPECIFY A DEPARTMENT TO MODIFY'.  -┘

ELSE                                                               -┐
    DISPLAY MSG TEXT                                                │  3
        'DELETION CANCELLED--SPECIFY A DEPARTMENT TO DELETE'.      -┘

1 These statements set the flag in XXX-WK-FIRST-TIME to Y and then initialize the dialog buffers for DEPARTMENT data.

2 For the MODDEP function, the dialog's map is redisplayed with this MODIFICATION CANCELLED message.

3 For the DELDEP function, the dialog's map is redisplayed with this DELETION CANCELLED message.

To define process module XXXDUPD-PA2, you use the Process Entity and Process Source screens:

-> proc
                                                                [Enter]

Enter the screen identifier (PROC) in the command area.

Enter the indicated specifications on the Process Entity screen. Don't forget to deselect the DISPLAY action.

      IDD REL 15.0                *** PROCESS ENTITY ***                   PROC
 ->
                                  DICT=DEMO

    DISPLAY      PROCESS NAME....: xxxdupd-pa2
 _ MODIFY
 x ADD          VERSION NUMBER..: 1       _ HIGHEST    _ NEXT HIGHEST
 _ DELETE                                 _ LOWEST     _ NEXT LOWEST

                DESCRIPTION.....: cancel mod/del department operation

[Enter]

After specifying basic information for process module XXXDUPD-PA2, you can proceed to add source commands on the Process Source screen:

-> srcs
                                                                [Enter]

SRCE identifies the Process Source screen.

The Process Source screen is displayed. Enter a full screen of source statements. Enter keywords, periods, and quotes as shown. Don't type characters beyond column 72.

      IDD REL 15.0           *** PROCESS SOURCE ***                        SRCE
 ->                                             NO DATA LINES CURRENTLY EXIST
                       PROCESS 'XXXDUPD-PREMAP' VERSION 1

 ---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----
move 'y' to xxx-first-time
initialize (department).
!
if agr-current-function eq 'moddep'
then
    display msg text
        'modification cancelled--specify a department to modify'.
else
    display msg text
        'deletion cancelled--specify a department to delete'.

[Enter]

After you press [Enter], IDD adds the process module source commands to the data dictionary and then redisplays the Process Source screen with a message like:

PROCESS 'XXXDUPD-PA2' VERSION 1 MODIFIED

If you notice any errors on the redisplayed screen, you can type over the errors to correct them, and then press [Enter] again.

After you finish defining process module XXXDUPD-PA2, you can exit from the IDD menu facility. In this sample session, you will transfer from IDD to ADSC in order to associate the process modules you defined above with dialog XXXDUPD. To do this, you use the SWITCH command:

-> switch adsct
                                                                [Enter]