Sample CA ADS Procedure › Premap Process

Premap Process

The premap process performs the actions of the SQL-invoked procedure. The premap process for the sample procedure is provided next:

ADD
PROCESS NAME IS GETPAREA_PROC VERSION IS 1
    PUBLIC ACCESS IS ALLOWED FOR ALL
    PROCESS SOURCE FOLLOWS
IF IN-AREA-I GE 0
  THEN
    D0.
      MOVE 0 TO GLOBAL-AREA-I.
      MOVE IN-AREA TO GLOBAL-AREA.
      MOVE IN-AREA TO GETPAREA-SQLPROC-GLOBAL-AREA.
      MOVE 'WRITING TO GLOBAL AREA' TO IN-AREA.
    END.
   ELSE
     D0.
      M0VE 0 TO IN-AREA-I.
      MOVE 'READING FROM GLOBAL-AREA' TO IN-AREA.
      M0VE 0 TO GLOBAL-AREA-I.
      MOVE GETPAREA-SQLPROC-GLOBAL-AREA TO GLOBAL-AREA.
     END.
LEAVE ADS.
  MSEND