MAPEX01:  PROC OPTIONS (MAIN);

     DECLARE 1 CUSTINV,               /* Application Data Structure */  A
              10 MESSAGE                       CHAR(78),                A
              10 CUSTNO                        CHAR(5),                 A
              10 INVNO                         CHAR(4),                 A
              ORDER1_ASLENGTH                  FIXED BIN(31,0) STATIC
                                               INIT(87);                A
     DECLARE (ATTYPE,ATVAL) FIXED BINARY(31,0);

     CALL FSINIT;                     /* Initialize GDDM.           */
     CUSTINV = '';                    /* Clear the ADS              */  B
     LOOP:                            /* Use MSREAD to display the  */
                                      /* map, and wait for input.   */
     CALL MSREAD('ACME00D6',          /* Mapgroup                   */  C
                 'ORDER1',            /* Map                        */
                 ORDER1_ASLENGTH,     /* Specify length of ADS      */
                 CUSTINV,             /* Specify name of ADS        */
                 ATTYPE,              /* Set to attention type ...  */
                 ATVAL);              /* ... and value by GDDM      */
     IF ATTYPE=1 & (ATVAL=3 | ATVAL=15) /* Operator pressed end key?*/
       THEN GO TO FIN;

     IF VERIFY(CUSTNO,'0123456789') = 0  /* Are CUSTNO and          */  D
      & VERIFY(INVNO,'0123456789') = 0   /* INVNO numeric?          */  D
       THEN DO;
         /*  .  */                    /* Process CUSTNO and INVNO   */  E
         /*  .  */
         /*  .  */
       MESSAGE = ' ';                 /* Clear any existing message */  F
       END;
       ELSE MESSAGE = 'Invalid Number';  /* If CUSTNO or INVNO not  */  G
                                         /* numeric, set up message.*/

     GO TO LOOP;                      /* Redisplay the map and data */
     FIN:

     CALL FSTERM;                    /* Terminate GDDM.            */
     %INCLUDE ADMUPINF;              /* GDDM entry declarations    */
     %INCLUDE ADMUPINM;
     END MAPEX01;




   Figure 81. Source code of MAPEX01

Subtopics:

• 15.2.1 Tasks illustrated by the MAPEX01 program
• 15.2.2 Compilation and execution of a mapping application program
• 15.2.3 ADS conversion for mapping applications written in C/370