Skip to content

Commit 2dc0714

Browse files
SJLennonSJLennon
committed
Add PMTSTATE
1 parent 95c473e commit 2dc0714

File tree

7 files changed

+1057
-5
lines changed

7 files changed

+1057
-5
lines changed

‎5250_Subfile/Images/Maintenance_Subfile.png

-31.2 KB
Binary file not shown.

‎5250_Subfile/Images/State_Prompt.png

30.1 KB
Loading

‎5250_Subfile/PMTSTATED

+185
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,185 @@
1+
A*%%TS SD 20200724 153608 LENNONS REL-V7R4M0 5770-WDS
2+
A*===============================================================
3+
A* This is a full screen expanding subfile to search for and
4+
A* select a Manufacturing QC Hold Disposition code
5+
A*===============================================================
6+
A* There is a naming convention for the fields in each record.
7+
A* -- Screen Header: Fields begin with SH_
8+
A* -- Subfile: Fields begin with SF_
9+
A* -- Subfile Control: Fields begin with SC_
10+
A* -- Screen footer: Fields begin with SFT_
11+
A*===============================================================
12+
A* Indicator usage:
13+
A* 01-20 Are not routinely cleared after an EXFMT. Some
14+
A* of these are used in subfile & subfile control for
15+
A* highlighting, etc., which does not change unless
16+
A* explicitly requested.
17+
A* 21-99 Are routinely cleared after and EXFMT.
18+
A* 80-89 Subfile record
19+
A* 90 Nessage Subfile end
20+
A* 91-99 Subfile Control Record
21+
A* Note: INDARA is specified here and in the program and this
22+
A* means that the display file indicators are in a
23+
A* data structure separate from the program indicators.
24+
A* This makes it easy to name the indicators in the DS.
25+
A*==============================================================
26+
A* MM/DD/YYYY Proj# Developer
27+
A* ---------- ----- -------------------------------------------
28+
A* 04/14/2013 8651 Sam Lennon Original coding
29+
A*
30+
A*==============================================================
31+
A*%%EC
32+
A DSPSIZ(24 80 *DS3 -
33+
A 27 132 *DS4)
34+
A PRINT
35+
A INDARA
36+
A ALTHELP
37+
A CA03
38+
A CF05
39+
A CA07
40+
A CA12
41+
A HELP
42+
A*===============================================================
43+
A*=== Screen Header: Fields begin with SH_ =====================
44+
A*
45+
A R SH_HDR
46+
A*%%TS SD 20111207 212036 SLENNON REL-V7R1M0 5770-WDS
47+
A OVERLAY
48+
A TEXT('Screen Header')
49+
A WINDOW(*DFT 17 40)
50+
A WDWBORDER((*DSPATR RI))
51+
A WDWBORDER((*COLOR BLU))
52+
A* CA03
53+
A* CA12
54+
A SH_PGM 10A O 1 1
55+
A 1 16'USA States'
56+
A COLOR(WHT)
57+
A 1 33DATE
58+
A EDTCDE(Y)
59+
A SH_FUNCT 17A O 2 13DSPATR(HI)
60+
A 2 33TIME
61+
A 2 1USER
62+
A*===============================================================
63+
A*=== Subfile: Fields begin with SF_ ===========================
64+
A*
65+
A R SFL SFL
66+
A*%%TS SD 20200723 210409 LENNONS REL-V7R4M0 5770-WDS
67+
A TEXT('SubFile')
68+
A 80 SFLNXTCHG
69+
A SF_OPT 1A B 6 2
70+
A 81 DSPATR(RI)
71+
A 82 DSPATR(PC)
72+
A SF_CODE 2A 6 6
73+
A 22 COLOR(RED)
74+
A SF_NAME 30A O 6 11
75+
A 22 COLOR(RED)
76+
A*===============================================================
77+
A*=== Subfile Control: Fields begin with SC_ ====================
78+
A*
79+
A R SFLCTL SFLCTL(SFL)
80+
A*%%TS SD 20200723 210409 LENNONS REL-V7R4M0 5770-WDS
81+
A *DS3 SFLSIZ(0008)
82+
A *DS4 SFLSIZ(0008)
83+
A *DS3 SFLPAG(0007)
84+
A *DS4 SFLPAG(0007)
85+
A *DS3 WINDOW(SH_HDR)
86+
A *DS4 WINDOW(SH_HDR)
87+
A TEXT('Subfile Control')
88+
A PAGEDOWN
89+
A RTNCSRLOC(&SC_PMT_RCD &SC_PMT_FLD)
90+
A BLINK
91+
A OVERLAY
92+
A N98 ERASE(SFL)
93+
A 98 SFLDSP
94+
A SFLDSPCTL
95+
A 99 SFLCLR
96+
A 97 SFLEND(*MORE)
97+
A 3 1'Name Contains'
98+
A SC_NAME 10A B 3 16
99+
A 95 DSPATR(MDT)
100+
A SC_OPTIONS 20A 4 1COLOR(BLU)
101+
A 4 26'Sorted by:'
102+
A SC_SORTED 4 4 37
103+
A 5 1'Opt'
104+
A DSPATR(HI)
105+
A DSPATR(UL)
106+
A 5 5'Code'
107+
A N01 COLOR(WHT)
108+
A 01 COLOR(PNK)
109+
A DSPATR(UL)
110+
A 5 11'Name '
111+
A DSPATR(UL)
112+
A 01 COLOR(WHT)
113+
A N01 COLOR(PNK)
114+
A SC_PMT_RCD 10A H
115+
A SC_PMT_FLD 10A H
116+
A SC_CSR_RCD 4S 0H SFLRCDNBR(CURSOR)
117+
A*===============================================================
118+
A*=== Screen footer & function keys: Fields begin with SFT_ ====
119+
A*
120+
A R SFT_FKEY
121+
A*%%TS SD 20200724 143229 LENNONS REL-V7R4M0 5770-WDS
122+
A *DS3 WINDOW(SH_HDR)
123+
A *DS4 WINDOW(SH_HDR)
124+
A TEXT('Screen Footer')
125+
A OVERLAY
126+
A 14 1' Demo Corp of America -
127+
A '
128+
A DSPATR(UL)
129+
A SFT_KEYS 40 O 15 1
130+
A*===============================================================
131+
A*=== Message Subfile: No fields ===============================
132+
A*
133+
A R MSGSFL SFL
134+
A*%%TS SD 19990831 134515 LENNON$S REL-V4R2M0 5769-PW1
135+
A TEXT('Message Subfile')
136+
A SFLMSGRCD(16)
137+
A MSGKEY SFLMSGKEY
138+
A MSGPGMQF SFLPGMQ(10)
139+
A*===============================================================
140+
A*=== Message Subfile Control: No fields ========================
141+
A*
142+
A R MSGCTL SFLCTL(MSGSFL)
143+
A*%%TS SD 19990831 134515 LENNON$S REL-V4R2M0 5769-PW1
144+
A TEXT('Message Subfile Control')
145+
A WINDOW(SH_HDR)
146+
A PAGEDOWN
147+
A PAGEUP
148+
A OVERLAY
149+
A SFLDSP
150+
A SFLDSPCTL
151+
A SFLINZ
152+
A N90 SFLEND
153+
A SFLSIZ(0002)
154+
A SFLPAG(0001)
155+
A MSGPGMQC SFLPGMQ(10)
156+
A*===============================================================
157+
A*=== Dummy Record - Assume =====================================
158+
A*
159+
A R DUMMY
160+
A ASSUME
161+
A 1 2' '
162+
A*%%RS+<record-sequences>
163+
A*%%RS+ <sequence name="SCREEN1">
164+
A*%%RS+ <device type="display" width="80" height="24" />
165+
A*%%RS+ <record-write record-format="SH_HDR" />
166+
A*%%RS+ <record-write record-format="SFL" />
167+
A*%%RS+ <record-write record-format="SFLCTL" />
168+
A*%%RS+ <record-write record-format="SFT_FKEY" />
169+
A*%%RS+ </sequence>
170+
A*%%RS </record-sequences>
171+
A*%%RS+<record-sequences>
172+
A*%%RS+ <sequence name="Untitled">
173+
A*%%RS+ <device type="display" width="132" height="27" />
174+
A*%%RS+ </sequence>
175+
A*%%RS </record-sequences>
176+
A*%%RS+<record-sequences>
177+
A*%%RS+ <sequence name="Untitled">
178+
A*%%RS+ <device type="display" width="80" height="24" />
179+
A*%%RS+ </sequence>
180+
A*%%RS </record-sequences>
181+
A*%%RS+<record-sequences>
182+
A*%%RS+ <sequence name="Untitled">
183+
A*%%RS+ <device type="display" width="80" height="24" />
184+
A*%%RS+ </sequence>
185+
A*%%RS </record-sequences>

0 commit comments

Comments
 (0)