*================================================================
      * RPGUPS
      *
      * This is a sample ILE RPG (RPG IV) program which demonstrates
      * the use of the MaxiCode encoder.  This sample calls the
      * encoder as a bound procedure (not as an external program).
      * CRTPGM must be used to link this module with the MaxiCode
      * service program.
      *
      * This demo is for version 2.1.1 and later of the encoder
      *
      * NOTE: There is no doubt that I am the world's worst RPG
      *       programmer.  Hopefully though this is good enough
      *       to demonstrate the ease of using the MaxiCode
      *       encoder.  I'm sure there are MUCH better ways to
      *       write RPG than I've done in this thing.
      *
      *================================================================
     FMAXICODE  O    E             PRINTER
      *================================================================
     D $ZIP            C                   CONST('339010000')
     D $TRAC           C                   CONST('1Z34567890')
      *================================================================
     D OMAXI           DS
     D  MAX01                  1     30
     D  MAX02                 31     60
     D  MAX03                 61     90
     D  MAX04                 91    120
     D  MAX05                121    150
     D  MAX06                151    180
     D  MAX07                181    210
     D  MAX08                211    240
     D  MAX09                241    270
     D  MAX10                271    300
     D  MAX11                301    330
     D  MAX12                331    360
     D  MAX13                361    390
     D  MAX14                391    420
     D  MAX15                421    450
     D  MAX16                451    480
     D  MAX17                481    510
     D  ERROR                511    513  0
     D IMAXI           DS
     D  #PCODE                 1      9
     D  #CCODE                10     12  0
     D  #SERVC                13     15  0
     D  #TRACK                16     25
     D  #SHIP#                26     31
     D  #JDATE                32     34  0
     D  #SHPID                35     64
     D  #PID                  65     68  0
     D  #COUNT                69     72  0
     D  #WEGHT                73     77  0
     D  #ADDVL                78     78
     D  #SHPTO                79    113
     D  #CITY                114    133
     D  #FILL1               134    148
     D  #STATE               149    150
     D  #MCTRL               151    151
      *******************************
      *  CALL MAXICODE ENCODER
      *******************************
     C                   EXSR      S001
      *******************************
      *  PRINT MAXICODE
      *******************************
     C                   EXSR      S002
      *******************************
      *  END OF PROGRAM
      *******************************
     C                   SETON                                        LR
      *========================================================
      *  S001 - CALL THE MAXICODE ENCODER
      *========================================================
     C     S001          BEGSR
      *
      * INITIALIZE OUR INPUT RECORD
      *
     C                   CLEAR                   IMAXI
     C                   MOVEL     $ZIP          #PCODE
     C                   MOVE      840           #CCODE
     C                   MOVE      1             #SERVC
     C                   MOVEL     $TRAC         #TRACK
     C                   MOVEL     '102562'      #SHIP#
     C                   MOVE      34            #JDATE
     C                   MOVE      1             #PID
     C                   MOVE      1             #COUNT
     C                   MOVE      20            #WEGHT
     C                   MOVEL     'Y'           #ADDVL
     C                   MOVEL     'FT MYERS'    #CITY
     C                   MOVEL     'FL'          #STATE
     C                   MOVEL     '0'           #MCTRL
     C                   CALLB     'MAXUPSN'
     C                   PARM                    IMAXI
     C                   PARM                    OMAXI
     C                   ENDSR
      *========================================================
      *  S002 - PRINT THE MAXICODE SYMBOL
      *========================================================
     C     S002          BEGSR
     C                   MOVEL     MAX01         MAXI01
     C                   MOVEL     MAX02         MAXI02
     C                   MOVEL     MAX03         MAXI03
     C                   MOVEL     MAX04         MAXI04
     C                   MOVEL     MAX05         MAXI05
     C                   MOVEL     MAX06         MAXI06
     C                   MOVEL     MAX07         MAXI07
     C                   MOVEL     MAX08         MAXI08
     C                   MOVEL     MAX09         MAXI09
     C                   MOVEL     MAX10         MAXI10
     C                   MOVEL     MAX11         MAXI11
     C                   MOVEL     MAX12         MAXI12
     C                   MOVEL     MAX13         MAXI13
     C                   MOVEL     MAX14         MAXI14
     C                   MOVEL     MAX15         MAXI15
     C                   MOVEL     MAX16         MAXI16
     C                   MOVEL     MAX17         MAXI17
     C                   WRITE     MAXIOUT
     C                   ENDSR