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:
- A*%%TS SD 20030827 172910 JOSEA REL-V5R1M0 5722-WDS
-
- A*-------------------------------------------------------------------*
- A*%%EC
- A DSPSIZ(24 80 *DS3)
- A REF(*LIBL/PKMSFLDR)
- A PRINT(*LIBL/PRINTKEY)
- A R RCD001
- A*%%TS SD 20030827 172910 JOSEA REL-V5R1M0 5722-WDS
- A CF03(03 'F3=Exit')
- A CF10(10 'F10=Addl Parameters')
- A CF12(12 'F12=Previous')
- A CF16(16 'F16=Confirm')
- A OVERLAY
- A SC_PGMNAME 10A O 1 2
- A 1 21'Trailer Load Summ DoC - Cust Copy'
- A COLOR(WHT)
- A 1 63DATE
- A EDTCDE(Y)
- A 1 72TIME
- A 2 2USER
- A LT0002 8A O 2 44MSGID(D05 2407 PKMSLTRF)
- A 2 53':'
- A SC_WHSECODR O 2 55REFFLD(WHSE)
- A SC_COMPCODR O 2 59REFFLD(CO)
- A SC_DIVSCODR O 2 70REFFLD(DIV)
- A 4 2'** Input Parameters **'
- A COLOR(WHT)
- A 6 2'physically packed (mostly parts)'
- | A + 1'by:'
- | A COLOR(WHT)
- | A SC_PACKER 10 B + 1COLOR(BLU)
- | A + 1'(blanks or valid PKMS user id)'
- A COLOR(WHT)
- A 8 2'Load Numbers:'
- A SC_LOAD#01 10A B 8 16COLOR(BLU)
- A 51 DSPATR(PC)
- A 51 DSPATR(RI)
- A SC_LOAD#02 10A B 9 16COLOR(BLU)
- A 52 DSPATR(PC)
- A 52 DSPATR(RI)
- A SC_LOAD#03 10A B 10 16COLOR(BLU)
- A 53 DSPATR(PC)
- A 53 DSPATR(RI)
- A SC_LOAD#04 10A B 11 16COLOR(BLU)
- A 54 DSPATR(PC)
- A 54 DSPATR(RI)
- A SC_LOAD#05 10A B 12 16COLOR(BLU)
- A 55 DSPATR(PC)
- A 55 DSPATR(RI)
- A SC_LOAD#06 10A B 13 16COLOR(BLU)
- A 56 DSPATR(PC)
- A 56 DSPATR(RI)
- A SC_LOAD#07 10A B 14 16COLOR(BLU)
- A 57 DSPATR(PC)
- A 57 DSPATR(RI)
- A SC_LOAD#08 10A B 15 16COLOR(BLU)
- A 58 DSPATR(PC)
- A 58 DSPATR(RI)
- A SC_LOAD#09 10A B 16 16COLOR(BLU)
- A 59 DSPATR(PC)
- A 59 DSPATR(RI)
- A SC_LOAD#10 10A B 17 16COLOR(BLU)
- A 60 DSPATR(PC)
- A 60 DSPATR(RI)
- A 21 2'Email: '
- A SC_EMAIL 70A B 21 10
- A*
- A 23 2'F3=Exit F10=Addl Parameters F1-
- A 6=Confirm'
- A COLOR(BLU)
- A R MSGSFL SFL
- A*%%TS SD 20030524 104858 JOSEA REL-V5R1M0 5722-WDS
- A SFLMSGRCD(24)
- A SC_SFLMSGK SFLMSGKEY
- A SC_PGMMSGQ SFLPGMQ(276)
- A R MSGCTL SFLCTL(MSGSFL)
- A*%%TS SD 20030524 104858 JOSEA REL-V5R1M0 5722-WDS
- A OVERLAY
- A 27 SFLDSP
- A 27 SFLDSPCTL
- A 27 SFLINZ
- A 27 SFLEND
- A SFLSIZ(0002)
- A SFLPAG(0001)
- A SC_PGMMSGQ SFLPGMQ(276)
-
|
|
|