midrange.com code scratchpad
Name:
Printer file
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/14/2023 07:02:03 pm
IP:
Logged
Description:
Printer file
Code:
  1.      
  2.      A          R HDR001
  3.      A                                      SKIPB(003)
  4.      A            RP_PGMNAME    10A  O     1
  5.      A                                      HIGHLIGHT
  6.  A*                                   28
  7.  |   A*                                     'STAR21  CONSTRUCTIONS'
  8.  |   A                                    27
  9.  A                                      'XYZ  TECHNOLOGIES'
  10.      A                                      HIGHLIGHT
  11.      A                                    67
  12.      A                                      'Page:'
  13.      A                                      HIGHLIGHT
  14.      A                                    77
  15.      A                                      PAGNBR
  16.      A            RP_USERNAM    10A  O     1
  17.      A                                      SPACEB(001)
  18.      A                                      HIGHLIGHT
  19.      A                                   +13
  20.      A                                      'Trailer Load Summ Doc - Cust Copy'
  21.      A                                      HIGHLIGHT
  22.      A                                    +7
  23.      A                                      TIME
  24.      A                                    +1
  25.      A                                      DATE
  26.      A                                      EDTCDE(Y)
  27.      A                                     1
  28.      A                                      'Load# ...:'
  29.      A                                      SPACEB(002)
  30.      A                                      HIGHLIGHT
  31. 13 A            RP_LOADNBR    10A  O    +3
  32. 13 A                                    36
  33.      A                                      'Trailer#:'
  34.      A                                      HIGHLIGHT
  35. DB02 A** Increased RP_TRLRNBR size from 12A to 17A
  36. 13 A            RP_TRLRNBR    17A  O    +2
  37.      A                                    65
  38.      A                                      'Stop'
  39.      A                                      HIGHLIGHT
  40.      A            RP_STOPNBR     2A  O    +2
  41.      A                                    +2
  42.      A                                      'Of'
  43.      A                                      HIGHLIGHT
  44.      A            RP_NBRSTOP     2S 0O    +2
  45.      A                                      EDTCDE(Z)
  46.       *
  47. 13 A            LOADBRCD      10       + 2BARCODE(CODE3OF9 2 *HRZ +
  48. 13 A                                      (*WIDTH 0.015) *NOHRI)
  49. 13 A                                      SPACEB(001)
  50.       *
  51. 14 A**      SHMTBRCD      10       +45BARCODE(CODE3OF9 2 *HRZ +
  52.  A            SHMTBRCD      10       +43BARCODE(CODE3OF9 2 *HRZ +
  53. 14 A                                      (*WIDTH 0.015) *NOHRI)
  54. 14 A****                                  SPACEA(001)
  55.       *
  56.  A**                              52'ASN#:'
  57.  A                                    50'ASN#:'
  58.  A                                      HIGHLIGHT
  59.       *
  60.  A**      RP_MESSAGE    40A  O    52FONT(2306 (*POINTSIZE 12))
  61.  A            RP_MESSAGE    40A  O    50FONT(2306 (*POINTSIZE 12))
  62.  A                                      SPACEB(003)
  63.  A                                      HIGHLIGHT
  64.       *
  65.      A                                     1
  66.      A                                      'Customer#:'
  67. 13 A                                      SPACEB(001)
  68.      A                                      HIGHLIGHT
  69. 13 A            RP_CUSTNBR     8A  O   + 3
  70. 13 A            RP_SHPTONM    30A  O   +13
  71.      A                                     1
  72.      A                                      'Ship To# :'
  73.      A                                      SPACEB(001)
  74.      A                                      HIGHLIGHT
  75. 13 A            RP_SHPTNBR    10A  O   + 3
  76. 13 A            RP_SHPTOA1    30A  O   +11
  77.      A            RP_SHPTOA2    30A  O    35
  78.      A                                      SPACEB(001)
  79. 11 A  38        RP_PACKER     21   O     1
  80.      A  30        RP_SHPTOA3    30A  O    35
  81.      A                                      SPACEB(001)
  82. DB02 A  37        RP_WCMSG      50A  O    22
  83. |    A                                      SPACEB(002)
  84. DB02 A                                      HIGHLIGHT
  85.      A                                     1
  86.      A                                      'Pick#'
  87.      A                                      SPACEB(002)
  88.      A                                      HIGHLIGHT
  89. 13 A**                              +9
  90.  A                                    +7
  91.      A                                      'Item Number'
  92.      A                                      HIGHLIGHT
  93.      A                                    +5
  94.      A                                      'Description'
  95.      A                                      HIGHLIGHT
  96.  A**                                  +8
  97.  A                                   +11
  98.      A                                      'Or Qt'
  99.      A                                      HIGHLIGHT
  100.  A**                                  +1
  101.  A*                                   +2
  102.  A  90                                57'Sh Qt'
  103.      A                                      HIGHLIGHT
  104.  A*                                   +1
  105.  A                                    63'Pick Loctn'
  106.      A                                      HIGHLIGHT
  107.  A**                                  +1
  108.  A*                                   +2
  109.  A                                    76'Pk Qt'
  110.      A                                      HIGHLIGHT
  111.  A**                                  +1
  112.  A**                                    'Prty'
  113.  A**                                    HIGHLIGHT
  114.      A*%%***********************************************************************
  115.      A          R DTL002
  116.      A                                      SPACEB(002)
  117.      A                                      HIGHLIGHT
  118.      A                                      SPACEA(001)
  119.      A**03      RP_POORDR#    56A  O     1
  120. 03 A            RP_POORDR#    80A  O     1
  121.      A*%%***********************************************************************
  122.      A          R DTL001
  123.      A                                      SPACEB(001)
  124.      A            RP_PICKNBR    10A  O     1
  125. 13 A            RP_ITEMNBR    15A  O    +2
  126. DB01 A  35                                  HIGHLIGHT
  127.      A            RP_SKUDESC    20A  O    +1
  128. DB01 A  35                                  HIGHLIGHT
  129.  A**          RP_ORDRQTY     5S 0O    +1
  130.  A            RP_ORDRQTY     6S 0O    +1
  131.      A                                      EDTCDE(Z)
  132. DB01 A  35                                  HIGHLIGHT
  133.  A**          RP_SHIPQTY     5S 0O    +1
  134.  A  90        RP_SHIPQTY     6S 0O    56
  135.      A                                      EDTCDE(Z)
  136. DB01 A  35                                  HIGHLIGHT
  137.  A            RP_SKULOCN    10A  O    63
  138.  A**          RP_PICKQTY     5S 0O    +1
  139.  A            RP_PICKQTY     6S 0O    75
  140.      A                                      EDTCDE(Z)
  141.  A            RP_SHIPPTY     5A  O    77
  142.      A                                      HIGHLIGHT
  143. 01 A*%%***********************************************************************
  144.  |   A          R DTL003
  145.  |   A                                      SPACEB(001)
  146.  |   A                                    12 'Substitute for: '
  147. 01 A            DT3_ITEM      15A  O    +1
  148.      A*%%***********************************************************************
  149.  A**************************************************************************
  150.  |   A          R SKUTOT
  151.  |   A                                      SPACEB(001)
  152.  |   A                                      SPACEA(001)
  153.  |   A                                    57
  154.  |   A                                      'SKU Total Qty ='
  155.  |   A                                      FONT(92 (*POINTSIZE 12))
  156.  |   A            RP_SKUTOTQ     7S 0O    72FONT(92 (*POINTSIZE 12))
  157.  |   A                                      EDTCDE(Z)
  158.  A**************************************************************************
  159.      A          R TOT001
  160.      A                                      SPACEB(002)
  161.      A                                      SPACEA(002)
  162.      A                                    26
  163.      A                                      'Total Stop'
  164.  A                                      FONT(420 (*POINTSIZE 14))
  165.  A            RP_TSTOPNB     2A  O    38FONT(420 (*POINTSIZE 14))
  166. 13 A**      RP_TOTORDQ     9S 0O    46
  167.  A            RP_TOTORDQ     9S 0O    47FONT(420 (*POINTSIZE 14))
  168.      A                                      EDTCDE(Z)
  169. 13 A**      RP_TOTSHPQ     5S 0O    56
  170.  A            RP_TOTSHPQ     6S 0O    56FONT(420 (*POINTSIZE 14))
  171.      A                                      EDTCDE(Z)
  172.  A*                                     HIGHLIGHT
  173. 05 A*%%***********************************************************************
  174.  |   A          R HDR004
  175.  |   A*%%***********************************************************************
  176.  |   A                                      SPACEB(001)
  177.  |   A                                    27
  178.  |   A                                      '** Special Inst **'
  179.  |   A                                      HIGHLIGHT
  180.  |   A*%%***********************************************************************
  181.  |   A          R DTL004
  182.  |   A*%%***********************************************************************
  183.  |   A                                      SPACEB(001)
  184.  |   A            RP_SPCINST    50A  O    27
  185. 05 A*%%***********************************************************************
  186.      A          R END001
  187.      A                                      SPACEB(001)
  188.      A                                    30
  189.      A                                      '** END OF REPORT **'
  190.      A                                      HIGHLIGHT
  191.  A          R END002
  192.  |   A                                      SPACEB(003)
  193.  |   A                                    15
  194.  |   A                                      'Pallets   :_________________'
  195.  |   A                                      FONT(400 (*POINTSIZE 20))
  196.  |   A                                      HIGHLIGHT
  197.  |   A                                    15
  198.  |   A                                      'Boxes     :_________________'
  199.  |   A                                      FONT(400 (*POINTSIZE 20))
  200.  |   A                                      SPACEB(002)
  201.  |   A                                      HIGHLIGHT
  202.  |   A                                    15
  203.  |   A                                      'Clock #   :_________________'
  204.  |   A                                      FONT(400 (*POINTSIZE 20))
  205.  |   A                                      SPACEB(002)
  206.  |   A                                      HIGHLIGHT
  207.  |   A                                    15
  208.  |   A                                      'Date      :_________________'
  209.  |   A                                      FONT(400 (*POINTSIZE 20))
  210.  |   A                                      SPACEB(002)
  211.  |   A                                      HIGHLIGHT
  212.  |   A                                    15
  213.  |   A                                      'Weight    :_________________'
  214.  |   A                                      FONT(400 (*POINTSIZE 20))
  215.  |   A                                      SPACEB(002)
  216.  A                                      HIGHLIGHT
  217.      A*%%***********************************************************************
  218.  
© 2004-2019 by midrange.com generated in 0.009s valid xhtml & css