MAPPER CSI Project Portal

Project Portal

Run List

Source Code :- RUN  A20I8   Edit Action Item

Stmt Num Statement
1.DATE 11:57:38 RID 64I 22 NOV 89 JOE
2.PROSPECTS RUN: PROBINPUT DESC: P.I.R. INPUT RUN BY: JOE I0400
3*==============================================================================.
4@ldv,w V20I3=erid$
5@def,,lin +1 V21A4,V22
6@if V22(1-4) = V20
7@ldv V27A4=V22(5-4)
8@gto V27
91:
10@psh
11@clv
12@ldv,l V27A4='V22'
13@ldv V26I3=V27(2-3)
14@pek,V26,1
15@ldv V26I3=10
16@ldv,p V23S80=V22
17@ldv V19H6=''
18@ldv,l V27A4='V19',V24I3=V27(2-3),V25I3=V22(V26-3)
19@ldv V23(V26-3)=V24
20@pek,V25,1,-1
21@ldv vV24=vV25
22@pok,V24,1
23@inc,4 V26
24@ldv V221A6=''
25@ldv,l V27A4='V221',V24I3=V27(2-3),V25I3=V22(V26-3)
26@ldv V23(V26-3)=V24
27@pek,V25,1,-1
28@ldv vV24=vV25
29@pok,V24,1
30@inc,4 V26
31@ldv V233S20=''
32@ldv,l V27A4='V233',V24I3=V27(2-3),V25I3=V22(V26-3)
33@ldv V23(V26-3)=V24
34@pek,V25,1,-1
35@ldv vV24=vV25
36@pok,V24,1
37@inc,4 V26
38@ldv,l V27A4='V23'
39@ldv V26I3=V27(2-3)
40@pok,V26,1
41@pop
422:
43@ldv V28I3=1,V43S80=' F2-REPAINT F3-HELP F4-RETURN F10-EXIT',V228H12='PROBINPUT',V229I3=1
44@ldv V242A5='',V243A6='',V244A4='',V245A5='',V246A12='',V247A1='',V248A6='',V249S20='',V250A6='',V251A1='',V252A1='',V253A6='',V254A6='',V255A5='' . .
45@ldv V51S70='',V52S70='',V53S70='',V54S70='',V250A6=V12
46@if V221 = '',(3)
47@ldv V248A6=V221,V249S20=V233
48@if V248 ne ''
49@ldv V28I3=2
50@def V31I2,V249
51@if V31 ne 0
52@ldv V28I3=3
533:
54@ldv V230H12=''
55@lcv t% V248 ' '/'_'
56@lcv t% V249 ' '/'_'
57@brk,0,1
58PROSPECTS PRODUCT PROBLEM INCIDENT REPORT (P.I.R) INPUT PGM V20
59------------------------------------------------------------------------------
602 COMP-CODE V1 V248,2<
612 LAST NAME > V249,2<
62 
63TRANSMIT FROM HERE > ,<
64------------------------------------------------------------------------------
65@chg V69I8 13 +1
66@dec V69
67@if V69 le 0,(lin +3)
68 
69@gto lin -2
70-------------------------------------------------------------------------------
71RETURN V1 _ , EXIT V1 ,
72V43(1-60)
73@brk
74@key
75@ldv V43S80=''
76@if V28 = 3,(5)
77@chg invar$ V248A6,V249S20
78@out,-0,2,24,1,V28,y,,,p
794:
80@if fkey$ = 0,(6)
81@if fkey$ = 2
82@ldv V43S80=' F2-REPAINT F3-HELP F4-RETURN F10-EXIT'
83@gto 3
84@if fkey$ = 3,(31)
85@if fkey$ = 4
86@ldv V19H6=''
87@gto 33
88@if fkey$ = 10
89@rel
90@brk
91INVALID FUNCTION KEY
92@brk
93@key
94@chg invar$ V248A6,V249S20
95@out,-0,2,1,23,1,y,,,p
96@gto 4
975:
98@chg invar$ V248A6,V249S20
99@out,-0,2,24,1,3,y,,,p,y
1006:
101@lcv '' V248 '_'/' '
102@lcv '' V249 '_'/' '
103@if V248(1-1) = '?'
104@ldv V230='PIRCOMP',V28=1
105@gto 31
106@if V249(1-1) = '?'
107@ldv V230='PIRNAM',V28=2
108@gto 31
109@chg V31I2 soeh$
110@if V31 > 67
111@rel
112@if V31 > 55
113@ldv V19H6=V248(1-1)
114@gto 33
115@ldv V15A12=''
116@def V31I2,V248
117@if V31 ne 0,(7)
118@ldv V43S80='COMPANY CODE MUST NOT BE BLANK',V28I3=1
119@gto 3
1207:
121@bfn,V4,B,2,,8 '' . . 2-6 ,V248 V33I4,V34I6
122@rdl,V4,B,V33,V34,8 2-6,9-35,45-30,76-4 V221A6,V222S35,V223S30,V224A4
123@rln 9-35,45-35 V225S35,V226S35
124@rln 2-75 V227S75
125@gto 9
1268:
127@ldv V43S80='COMPANY RECORD DOES NOT EXIST - MUST BE ENTERED',V28I3=1
128@gto 3
1299:
130@def V31I2,V249
131@if V31 ne 0,(10)
132@ldv V43S80='PERSONS LAST NAME CANNOT BE BLANK',V28I3=2
133@gto 3
13410:
135@bfn,V4,C,,,11 i 2-6,9-20 ,V248,V249 V33I4,V34I6
136@rdl,V4,C,V33,V34,11 2-6,9-20,30-31,62-3,66-8,75-5 V232A6,V233S20,V234S31,V235A3,V236A8,V237A5
137@rln 9-20,30-31,66-8 V238S20,V239S31,V240A8
138@rln 2-75 V241S75
139@gto 12
14011:
141@ldv V43S80='INVALID SITE - PERSON COMBINATION',V28I3=1
142@gto 3
14312:
144@ldv V28I3=1,V43S80=' F2-REPAINT F3-HELP F4-RETURN F10-EXIT',V229I3=2
14513:
146@lcv '' V221 ','/';'
147@lcv '' V223 ','/';'
148@lcv '' V224 ','/';'
149@lcv '' V225 ','/';'
150@lcv '' V226 ','/';'
151@lcv '' V238 ','/';'
152@lcv '' V233 ','/';'
153@lcv '' V235 ','/';'
154@lcv '' V236 ','/';'
155@lcv '' V240 ','/';'
156@lcv '' V239 ','/';'
157@lcv '' V237 ','/';'
158@lcv '' V51 ','/';'
159@lcv '' V52 ','/';'
160@lcv '' V53 ','/';'
161@lcv '' V54 ','/';'
162@ldv,p V238=V238
163@ldv V46S80=V238' 'V233,V46(46-35)='('V235') 'V236
164@if V240 ne ''
165@ldv V46(60-20)='Ext 'V240
166@brk,0,1
167PROBLEM INCIDENT REPORT (P.I.R.) data input PGM V20
1682PERSON/COMPANY:
169V46
170V234 V239 TYPE=V237
171V221 V222V223 V224
172V225 V226
1732------------------------------------------------------------------------------
1742 PRODUCT CODE> V243,2< FEATURE> V244,2< VERSION> V245,2<
175 
176 
1772 COMPONENT > V246,2< PROBLEM RPT DATE > V250,2<
178 
179 
1802 PROBLEM TYPE > V251,2< PRIORITY > V247,2< STATUS > V252,2<
181 
182 
1832 REP ASG''D > V254,2< CLOSE-DATE > V253,2< PROB SUMM RPT NO > V255,2<
184 
185 
1862TEXT> V51,2<
1872TEXT> V52,2<
1882TEXT> V53,2<
1892TEXT> V54,2<
190-------------------------------------------------------------------------------
191TRANSMIT FROM HERE > ,< ENTER ''Y'' TO ADD ADDITIONAL TEXT
192----------------------------------------------- RETURN V1 , EXIT V1 ,
193V43(1-60)
194@brk
195@key
196@ldv V19H6=*
197@chg invar$ V243,V244,V245,V246,V250,V251,V247,V252,V254,V253,V255,V51S70,V52S70,V53S70,V54S70,V19
198@out,-0,2,24,1,V28,y,,,p
19914:
200@if fkey$ = 0,(15)
201@if fkey$ = 2,(13)
202@if fkey$ = 3,(32)
203@if fkey$ = 4
204@ldv V221A6='',V233S20=''
205@gto 2
206@if fkey$ = 10
207@rel
208@brk
209INVALID FUNCTION KEY
210@brk
211@key
212@chg invar$ V243,V244,V245,V246,V250,V251,V247,V252,V254,V253,V255,V51S70,V52S70,V53S70,V54S70,V19
213@out,-0,2,1,23,1,y,,,p
214@gto 14
21515:
216@chg V31 soeh$
217@if V31 > 67
218@rel
219@if V31 > 55
220@ldv V19H6=V243(1-1)
221@gto 33
222@if V19 ne *,(16)
223@ldv V28I3=16
224@chg invar$ V243,V244,V245,V246,V250,V251,V247,V252,V254,V253,V255,V51S70,V52S70,V53S70,V54S70,V19
225@out,0,1,-0,1,0,24,V28,y,,,p,y
22616:
227@if V243(1-1) = '?'
228@ldv V230='PIRPROD',V28=1
229@gto 32
230@if V244(1-1) = '?'
231@ldv V230='PIRFEAT',V28=2
232@gto 32
233@if V245(1-1) = '?'
234@ldv V230='PIRVERS',V28=3
235@gto 32
236@if V246(1-1) = '?'
237@ldv V230='PIRCMPT',V28=4
238@gto 32
239@if V250(1-1) = '?'
240@ldv V230='PIRDT',V28=5
241@gto 32
242@if V251(1-1) = '?'
243@ldv V230='PIRTYP',V28=6
244@gto 32
245@if V247(1-1) = '?'
246@ldv V230='PIRPTY',V28=7
247@gto 32
248@if V252(1-1) = '?'
249@ldv V230='PIRSTAT',V28=8
250@gto 32
251@if V254(1-1) = '?'
252@ldv V230='PIRREP',V28=9
253@gto 32
254@if V253(1-1) = '?'
255@ldv V230='PIRCLDT',V28=10
256@gto 32
257@if V255(1-1) = '?'
258@ldv V230='PIRPSRNO',V28=11
259@gto 32
260@if V51(1-1) = '?'
261@ldv V230='TEXT-LINE',V28=12
262@gto 32
263@if V52(1-1) = '?'
264@ldv V230='TEXT-LINE',V28=13
265@gto 32
266@if V53(1-1) = '?'
267@ldv V230='TEXT-LINE',V28=14
268@gto 32
269@if V54(1-1) = '?'
270@ldv V230='TEXT-LINE',V28=15
271@gto 32
272@brk
273*=
274. ******ENTER ALL ADDITIONAL TEXT VIA SOE UPDATE(S) -- RSM TO CONTINUE******
275. ****IF MORE LINES ARE REQUIRED DUPLICATE BLANK LINES TO EXPAND RESULT*****
276V51**********
277V52**********
278V53**********
279V54**********
280@chg V69 0
28117: . . BUILD AREA FOR ADDITIONAL TEXT ENTRY
282**********
283@inc V69
284@if V69 < 16,(17)
285@brk
286@rnm -4
287@if V19 = 'Y'
288@dsp,-4
28918:
290@bfn,V4,D,2,,24 e . . 2-17 ,V243 V244 V245 ,V34I6
291@def V31I2,V254
292@if V31 = 0,(19)
293@fnd,V4,I,1,6,25 '' 2-11 ,V254 ,V34I6
29419:
295@brk,0,1
2963 V43
297@brk
298@ldv V43S80=''
299@out,-0,2,1,23,0,y,y,,p
300@lln,-4 V69I8
30120:
302@rdl,-4,V69 1-70 V51S70
303@def V31,V51
304@if V31 > 0,(21)
305@dec V69
306@gto 20
30721:
308@dec,3 V69
309@LDV V51S70=''
310@lok,V5,B,V3
311@ldv,p V55A12='EOF**'
312@rdl,V5,B,2,2 2-5 V242A5
313@juv,r V242
31422:
315@lln,V5,B,V3 V70I8
316@fnd,V5,B,V3,,23 '' 2-5 ,V55 ,V34I6
317@chg V72I8 V34 +V69
318@if V70 ge V72,(26)
31923:
320@ln+,V5,B,V3,V70,50
321@inc V70
322@wrl,V5,B,V3,V70 2-5 ,V55
323@gto 22
32424:
325@ldv V43S80='INVALID PRODUCT/FEATURE/VERSION COMBINATION',V28I3=1
326@gto 13
32725:
328@ldv V43S80='ASSIGNED REP ENTERED IS INVALID ',V28I3=9
329@gto 13
33026:
331@ldv V33I4=V3
332@wrl,V5,B,V33,V34 2-5,8-6,15-4,20-5,26-12,39-1,41-6,48-20,69-6,76-1,78-1,80-6,87-6,94-5 ,V242,V243,V244,V245,V246,V247,V248,V249,V250,V251,V252,V253,V254,V255
333@chg V70I8 5
334@inc V34
335@lln,-4 V71I8
33627:
337@if V70 = V71,(28)
338@rdl,-4,V71 1-70 V51S70
339@def V31I2,V51
340@if V31 = 0
341@dec V71
342@gto 27
34328: . . retrieve text line to PIR rid
344@CHG V69I8 0
345@rdl,-4,V70,30 1-70 V51S70
346@inc V69,V70
347@if V70 > V71,(29)
348@rdl,-4,V70,29 1-70 V52S70
349@inc V69,V70
350@if V70 > V71,(29)
351@rdl,-4,V70,29 1-70 V53S70
352@inc V69,V70
353@if V70 > V71,(29)
354@rdl,-4,V70,29 1-70 V54S70
355@inc V69,V70
35629:
357@if V69 = 4
358@wrl,V5,B,V3,V34 2-76 .,V242 V51/.,V242 V52/.,V242 V53/.,V242 V54
359@if V69 = 3
360@wrl,V5,B,V3,V34 2-76 .,V242 V51/.,V242 V52/.,V242 V53
361@if V69 = 2
362@wrl,V5,B,V3,V34 2-76 .,V242 V51/.,V242 V52
363@if V69 = 1
364@wrl,V5,B,V3,V34 2-76 .,V242 V51
365@if V69 = 4
366@inc,4 V34
367@gto 28
36830:
369@wrl,V5,B,V3,V72 2-5 ,V55
370@inc V242
371@juv,l V242
372@lok,V5,B,2
373@wrl,V5,B,2,2 2-5 .,V242
374@ulk
375@dec V242
376@juv,l V242
377@ldv V43S80=' NOTE: P. I. R. NUMBER IS 'V242'.'
378@brk,0,1
3792V43(1-59) - XMIT to cont. ,
380@brk
381@out,-0,2,1,23,-1,y,,,p
382@ldv V43S80=''
383@lln,V5,B,V3 V34I6
384@if V34 < 2500,(2)
385@brk,0,1
386 
387 
3883 C A U T I O N -
389 
390PROBLEM LOG RID IS OVER 2500 LINES.
391NOTIFY PROSPECTS COORDINATOR.....
392@brk
393@out,0,1,-0,2,10,1,,y,y . .
394@wat 1000
395@gto 2
39631:
397@ldv V26I3=1,V22S80=''
398@ldv,l V27A4='90'
399@ldv V22(V26-4)=V27
400@inc,4 V26
401@ldv,l V27A4='2'
402@ldv V22(V26-4)=V27
403@inc,4 V26
404@ldv,l V27A4='V228'
405@ldv V22(V26-4)=V27
406@inc,4 V26
407@ldv,l V27A4='V229'
408@ldv V22(V26-4)=V27
409@inc,4 V26
410@ldv,l V27A4='V230'
411@ldv V22(V26-4)=V27
412@inc,4 V26
413@ldv,w V22(1-4)=erid$
414@ldv V22(V26-1)='.'
415@ldv,p V22=V22
416@psh
417@clv
418@pek,1,28
419@gto rpx 90
42032:
421@ldv V26I3=1,V22S80=''
422@ldv,l V27A4='90'
423@ldv V22(V26-4)=V27
424@inc,4 V26
425@ldv,l V27A4='13'
426@ldv V22(V26-4)=V27
427@inc,4 V26
428@ldv,l V27A4='V228'
429@ldv V22(V26-4)=V27
430@inc,4 V26
431@ldv,l V27A4='V229'
432@ldv V22(V26-4)=V27
433@inc,4 V26
434@ldv,l V27A4='V230'
435@ldv V22(V26-4)=V27
436@inc,4 V26
437@ldv,w V22(1-4)=erid$
438@ldv V22(V26-1)='.'
439@ldv,p V22=V22
440@psh
441@clv
442@pek,1,28
443@gto rpx 90
44433:
445@ldv V27A4='V22'
446@ldv V26I3=V27(2-3)
447@pek,V26,1
448@psh
449@clv
450@pek,1,28
451@def,p V27A4,V22
452@ldv V26I3=10
453@if V26 > V27,(lin +1)
454@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
455@pek,V25,1,-1
456@pek,V24,1
457@ldv vV25=vV24
458@pok,V25,1,-1
459@inc,4 V26
460@if V26 > V27,(lin +1)
461@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
462@pek,V25,1,-1
463@pek,V24,1
464@ldv vV25=vV24
465@pok,V25,1,-1
466@inc,4 V26
467@if V26 > V27,(lin +1)
468@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
469@pek,V25,1,-1
470@pek,V24,1
471@ldv vV25=vV24
472@pok,V25,1,-1
473@inc,4 V26
474@if V26 > V27,(lin +1)
475@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
476@pek,V25,1,-1
477@pek,V24,1
478@ldv vV25=vV24
479@pok,V25,1,-1
480@inc,4 V26
481@if V26 > V27,(lin +1)
482@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
483@pek,V25,1,-1
484@pek,V24,1
485@ldv vV25=vV24
486@pok,V25,1,-1
487@inc,4 V26
488@if V26 > V27,(lin +1)
489@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
490@pek,V25,1,-1
491@pek,V24,1
492@ldv vV25=vV24
493@pok,V25,1,-1
494@inc,4 V26
495@if V26 > V27,(lin +1)
496@ldv,l V24I3=V23(V26-3),V25I3=V22(V26-3)
497@pek,V25,1,-1
498@pek,V24,1
499@ldv vV25=vV24
500@pok,V25,1,-1
501@inc,4 V26
502@pop
503@pop
504@ldv V27A4=V22(1-4)
505@gto rpx V27
506 
507@end