midrange.com code scratchpad
Name:
DATAMAT
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
06/23/2022 02:28:47 pm
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.      H                                                                               
  2.      FDATAMAP O   E                    PRINTER                                       
  3.       *                                                                              
  4.      IPRTPOS      DS                                                                 
  5.      I                                    B   1   43TX                               
  6.      I                                    B   5   83TY                               
  7.       *** BARCODE                                                                    
  8.      IPDFB        DS                                                                 
  9.      I              '[)>'                 C         MESHED                           
  10.      I              '06'                  C         FORHED                           
  11.      I              '4F'                  C         FLD4F                            
  12.      I              '9K'                  C         FLD9K                            
  13.      I              '2K'                  C         FLD2K                            
  14.      I              'V'                   C         FLDV                             
  15.      I              '13V'                 C         FLD13V                           
  16.      I              '8V'                  C         FLD8V                            
  17.      I              '8D'                  C         FLD8D                            
  18.      I              '2L'                  C         FLD2L                            
  19.      I              'Q'                   C         FLDQ                             
  20.      I              '1J'                  C         FLD1J                            
  21.      I              '5J'                  C         FLD5J                            
  22.      I              '6J'                  C         FLD6J                            
  23.      I              X'1D'                 C         @GS                              
  24.      I              X'1E'                 C         @RS                              
  25.      I              X'04'                 C         @EOT                             
  26.       **************************************************************************     
  27.      C                     Z-ADD1         SIZ     32                                 
  28.      C                     Z-ADD0         TY                                         
  29.      C                     Z-ADD0         TX                                         
  30.       *** DATAMATRIX CODE                                                            
  31.      C                     MOVE *BLANK    DTMATM                                     
  32.      C                     MOVELMESHED    DTMATM    P                                
  33.      C           DTMATM    CAT  @RS:0     DTMATM                                     
  34.      C           DTMATM    CAT  FORHED:0  DTMATM                                     
  35.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  36.       * 4F                                                                           
  37.      C           DTMATM    CAT  FLD4F:0   DTMATM                                     
  38.      C           DTMATM    CAT  '01/01':0 DTMATM                                     
  39.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  40.       * 9K                                                                           
  41.      C           DTMATM    CAT  FLD9K:0   DTMATM                                     
  42.      C           DTMATM    CAT  '03':0    DTMATM                                     
  43.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  44.       * 2K                                                                           
  45.      C           DTMATM    CAT  FLD2K:0   DTMATM                                     
  46.      C           DTMATM    CAT  '123456':0DTMATM                                     
  47.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  48.       * V                                                                            
  49.      C           DTMATM    CAT  FLDV:0    DTMATM                                     
  50.      C           DTMATM    CAT  '000588':0DTMATM                                     
  51.      C           DTMATM    CAT  '5400':0  DTMATM                                     
  52.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  53.       * 13V                                                                          
  54.      C           DTMATM    CAT  FLD13V:0  DTMATM                                     
  55.      C           DTMATM    CAT  '422158':0DTMATM                                     
  56.      C           DTMATM    CAT  '915':0   DTMATM                                     
  57.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  58.       * 8V                                                                           
  59.      C           DTMATM    CAT  FLD8V:0   DTMATM                                     
  60.      C           DTMATM    CAT  'RC':0    DTMATM                                     
  61.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  62.       * 8D 0002                                                                      
  63.      C           DTMATM    CAT  FLD8D:0   DTMATM                                     
  64.      C           DTMATM    CAT  '202111':0DTMATM                                     
  65.      C           DTMATM    CAT  '100000':0DTMATM                                     
  66.      C           DTMATM    CAT  '002':0   DTMATM                                     
  67.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  68.       * 8D 0011                                                                      
  69.      C           DTMATM    CAT  FLD8D:0   DTMATM                                     
  70.      C           DTMATM    CAT  '202111':0DTMATM                                     
  71.      C           DTMATM    CAT  '050000':0DTMATM                                     
  72.      C           DTMATM    CAT  '011':0   DTMATM                                     
  73.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  74.       * 2L                                                                           
  75.      C           DTMATM    CAT  FLD2L:0   DTMATM                                     
  76.      C           DTMATM    CAT  '804C8':0 DTMATM                                     
  77.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  78.       * Q                                                                            
  79.      C           DTMATM    CAT  FLDQ:0    DTMATM                                     
  80.      C           DTMATM    CAT  '1':0     DTMATM                                     
  81.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  82.       * 1J/5J/6J                                                                     
  83.      C           DTMATM    CAT  FLD1J:0   DTMATM                                     
  84.      C           DTMATM    CAT  'UN4221':0DTMATM                                     
  85.      C           DTMATM    CAT  '589150':0DTMATM                                     
  86.      C           DTMATM    CAT  '000761':0DTMATM                                     
  87.      C           DTMATM    CAT  '5':0     DTMATM                                     
  88.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  89.       *                                                                              
  90.       * 2L                                                                           
  91.      C           DTMATM    CAT  FLD2L:0   DTMATM                                     
  92.      C           DTMATM    CAT  '804C8':0 DTMATM                                     
  93.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  94.       * Q                                                                            
  95.      C           DTMATM    CAT  FLDQ:0    DTMATM                                     
  96.      C           DTMATM    CAT  '1':0     DTMATM                                     
  97.      C           DTMATM    CAT  @GS:0     DTMATM                                     
  98.       * 1J/5J/6J                                                                     
  99.      C           DTMATM    CAT  FLD1J:0   DTMATM                                     
  100.      C           DTMATM    CAT  'UN4221':0DTMATM                                     
  101.      C           DTMATM    CAT  '589150':0DTMATM                                     
  102.      C           DTMATM    CAT  '000761':0DTMATM                                     
  103.      C           DTMATM    CAT  '6':0     DTMATM                                     
  104.       *                                                                              
  105.      C           DTMATM    CAT  @RS:0     DTMATM                                     
  106.      C           DTMATM    CAT  @EOT:0    DTMATM                                     
  107.       *                                                                              
  108.       *                                                                              
  109.      C                     Z-ADD5.0       PY                                         
  110.      C                     Z-ADD2.0       PX                                         
  111.      C                     EXSR SPOS                                                 
  112.      C                     ADD  TY        PY                                         
  113.      C                     ADD  TX        PX                                         
  114.      C                     WRITERDTMATM                                              
  115.       *                                                                              
  116.      C                     WRITEBENDPAGE                                             
  117.       *                                                                              
  118.      C                     SETON                     LR                              
  119.       *                                                                              
  120.       ********************************************************************           
  121.       * SIZE POS                                                                     
  122.       ********************************************************************           
  123.      C           SPOS      BEGSR                                                     
  124.      C                     MULT SIZ       PY      53                                 
  125.      C                     MULT SIZ       PX      53                                 
  126.      C                     MULT SIZ       FY      41                                 
  127.      C                     MULT SIZ       FX      41                                 
  128.       *                    MULT SIZ       PSY                                        
  129.       *                    MULT SIZ       PSX                                        
  130.      C                     ENDSR                                                     
  131.       *                                                                              
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css