midrange.com code scratchpad
Name:
Display file
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/14/2023 07:03:01 pm
IP:
Logged
Description:
Display file
Code:
  1.      A*%%TS  SD  20030827  172910  JOSEA       REL-V5R1M0  5722-WDS
  2.      
  3.      A*-------------------------------------------------------------------*
  4.      A*%%EC
  5.      A                                      DSPSIZ(24 80 *DS3)
  6.      A                                      REF(*LIBL/PKMSFLDR)
  7.      A                                      PRINT(*LIBL/PRINTKEY)
  8.      A          R RCD001
  9.      A*%%TS  SD  20030827  172910  JOSEA       REL-V5R1M0  5722-WDS
  10.      A                                      CF03(03 'F3=Exit')
  11.      A                                      CF10(10 'F10=Addl Parameters')
  12.      A                                      CF12(12 'F12=Previous')
  13.      A                                      CF16(16 'F16=Confirm')
  14.      A                                      OVERLAY
  15.      A            SC_PGMNAME    10A  O  1  2
  16.      A                                  1 21'Trailer Load Summ DoC - Cust Copy'
  17.      A                                      COLOR(WHT)
  18.      A                                  1 63DATE
  19.      A                                      EDTCDE(Y)
  20.      A                                  1 72TIME
  21.      A                                  2  2USER
  22.      A            LT0002         8A  O  2 44MSGID(D05 2407 PKMSLTRF)
  23.      A                                  2 53':'
  24.      A            SC_WHSECODR        O  2 55REFFLD(WHSE)
  25.      A            SC_COMPCODR        O  2 59REFFLD(CO)
  26.      A            SC_DIVSCODR        O  2 70REFFLD(DIV)
  27.      A                                  4  2'** Input Parameters **'
  28.      A                                      COLOR(WHT)
  29.  A                                  6  2'physically packed (mostly parts)'
  30.  |   A                                   + 1'by:'
  31.  |   A                                      COLOR(WHT)
  32.  |   A            SC_PACKER     10   B   + 1COLOR(BLU)
  33.  |   A                                   + 1'(blanks or valid PKMS user id)'
  34.  A                                      COLOR(WHT)
  35.      A                                  8  2'Load Numbers:'
  36.      A            SC_LOAD#01    10A  B  8 16COLOR(BLU)
  37.      A  51                                  DSPATR(PC)
  38.      A  51                                  DSPATR(RI)
  39.      A            SC_LOAD#02    10A  B  9 16COLOR(BLU)
  40.      A  52                                  DSPATR(PC)
  41.      A  52                                  DSPATR(RI)
  42.      A            SC_LOAD#03    10A  B 10 16COLOR(BLU)
  43.      A  53                                  DSPATR(PC)
  44.      A  53                                  DSPATR(RI)
  45.      A            SC_LOAD#04    10A  B 11 16COLOR(BLU)
  46.      A  54                                  DSPATR(PC)
  47.      A  54                                  DSPATR(RI)
  48.      A            SC_LOAD#05    10A  B 12 16COLOR(BLU)
  49.      A  55                                  DSPATR(PC)
  50.      A  55                                  DSPATR(RI)
  51.      A            SC_LOAD#06    10A  B 13 16COLOR(BLU)
  52.      A  56                                  DSPATR(PC)
  53.      A  56                                  DSPATR(RI)
  54.      A            SC_LOAD#07    10A  B 14 16COLOR(BLU)
  55.      A  57                                  DSPATR(PC)
  56.      A  57                                  DSPATR(RI)
  57.      A            SC_LOAD#08    10A  B 15 16COLOR(BLU)
  58.      A  58                                  DSPATR(PC)
  59.      A  58                                  DSPATR(RI)
  60.      A            SC_LOAD#09    10A  B 16 16COLOR(BLU)
  61.      A  59                                  DSPATR(PC)
  62.      A  59                                  DSPATR(RI)
  63.      A            SC_LOAD#10    10A  B 17 16COLOR(BLU)
  64.      A  60                                  DSPATR(PC)
  65.      A  60                                  DSPATR(RI)
  66.  A                                 21  2'Email: '
  67.  A            SC_EMAIL      70A  B 21 10
  68.  A*
  69.      A                                 23  2'F3=Exit   F10=Addl Parameters   F1-
  70.      A                                      6=Confirm'
  71.      A                                      COLOR(BLU)
  72.      A          R MSGSFL                    SFL
  73.      A*%%TS  SD  20030524  104858  JOSEA       REL-V5R1M0  5722-WDS
  74.      A                                      SFLMSGRCD(24)
  75.      A            SC_SFLMSGK                SFLMSGKEY
  76.      A            SC_PGMMSGQ                SFLPGMQ(276)
  77.      A          R MSGCTL                    SFLCTL(MSGSFL)
  78.      A*%%TS  SD  20030524  104858  JOSEA       REL-V5R1M0  5722-WDS
  79.      A                                      OVERLAY
  80.      A  27                                  SFLDSP
  81.      A  27                                  SFLDSPCTL
  82.      A  27                                  SFLINZ
  83.      A  27                                  SFLEND
  84.      A                                      SFLSIZ(0002)
  85.      A                                      SFLPAG(0001)
  86.      A            SC_PGMMSGQ                SFLPGMQ(276)
  87.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css