DCL BUFFER CHAR(800);
     DCL (BUFLEN,            /* Data area length                     */
          DATALEN)           /* Data actual length                   */
                FIXED BINARY(31);
     BUFLEN=800;
     CALL IMAGT(-1,BUFLEN,BUFFER,DATALEN);

• The first parameter is the image identifier, -1 for the scanner.

• The next parameter is the available buffer length.

• The third parameter is the name of the data area to receive the image data.

• The last parameter is the length of image data placed in the data area (buffer) by GDDM. If it is 0, all the image data has been returned.