-
Notifications
You must be signed in to change notification settings - Fork 18
/
Copy pathpflst0a9
163 lines (123 loc) · 4.38 KB
/
pflst0a9
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
)PANEL VERSION=1 FORMAT=1
)COMMENT
File and Directory list panel for referral lists
Similar to PFLST0A1
PFLST0AA/PFLST0AB/PFLST0AC/PFLST0AD are the same except:
SIZE->PERMISS->MODDATE->STCDATE->ACCDATE
)ENDCOMMENT
)ATTR
+ TYPE(TEXT) COLOUR(TURQ)
- TYPE(TEXT) COLOUR(WHITE)
* TYPE(TEXT) COLOUR(BLUE)
% TYPE(TEXT) COLOUR(GREEN)
! TYPE(OUTPUT) COLOUR(WHITE) CAPS(OFF)
$ TYPE(OUTPUT) COLOUR(BLUE) CAPS(OFF)
W TYPE(CHAR) COLOUR(WHITE)
Y TYPE(CHAR) COLOUR(&PFLAC6)
)INCLUDE std_pdc
)INCLUDE pfl_pdc
)INCLUDE rfl_pdc
)INCLUDE hlp_pdc
)BODY
PANELTITLE 'Entry List for &LSTNAME'
TEXT 4 2 FP 'Command ===> '
FIELD 4 15 MAX-17 NEF PAD(USER) ZCMD
TEXT 4 MAX-15 FP 'Scroll ===>'
FIELD 4 MAX-3 4 NEF NONE ZSCROLL
TEXT 5 MAX-15 SI 'More: >'
--DYNAREA 5 2 MAX-17 1 ZHOTBARD ZHOTBARS
TEXT 6 MAX-53 FP 'Options:'
TEXT 6 MAX-44 24 RP '&FMSG4'
FIELD 8 22 MAX-41 ATTR(!) FMSG3
FIELD 6 2 1 CEF PAD(USER) EXGEN
TEXT 6 4 SAC 'Expand generic entries'
TEXT 6 MAX-20 MAX SAC '&FMSG1'
TEXT 7 MAX-20 MAX SAC '&FMSG2'
TEXT 8 2 ATTR(+) 'Command'
TEXT 8 11 ATTR(+) 'Entry name'
TEXT 8 MAX-40 ATTR(-) 'Message'
TEXT 8 MAX-19 ATTR(*) 'Type'
TEXT 8 MAX-11 ATTR(%) 'Size'
TEXT 9 2 CH '--------'
FIELD 9 11 MAX-42 ATTR($) ENTSIND
FIELD 9 MAX-40 20 ATTR($) MSGSIND
TEXT 9 MAX-19 CH EXPAND '-'
TBMODEL 10 MAX
TBFIELD 2 8 NEF CAPS(OFF),PAD(USER),JUST(LEFT) SEL
TBFIELD ++1 MAX-42 VOI NONE ENTRY
TBFIELD MAX-40 20 VOI NONE MESSAGE
TBFIELD MAX-19 7 VOI NONE TYPE
TBFIELD MAX-11 10 VOI NONE SIZE
)INIT
IF (&ZSCROLL = &Z) VGET ZSCROLL PROFILE
IF (&ZSCROLL = &Z) &ZSCROLL = &ZSCROLLD
VGET (PFLAC1 PFLAC2 PFLAC3 PFLAC4 PFLAC5 PFLAC6) PROFILE
VGET (PFLAI1 PFLAI2 PFLAI3 PFLAI4 PFLAI5) PROFILE
VGET (PFLAH1 PFLAH2 PFLAH3 PFLAH4 PFLAH5) PROFILE
IF (&PFLAC1 EQ &Z) &PFLAC1 = 'TURQ'
IF (&PFLAC2 EQ &Z) &PFLAC2 = 'WHITE'
IF (&PFLAC3 EQ &Z) &PFLAC3 = 'BLUE'
IF (&PFLAC4 EQ &Z) &PFLAC4 = 'GREEN'
IF (&PFLAC5 EQ &Z) &PFLAC5 = 'BLUE'
IF (&PFLAC6 EQ &Z) &PFLAC6 = 'YELLOW'
IF (&PFLAI1 EQ &Z) &PFLAI1 = 'HIGH'
IF (&PFLAI2 EQ &Z) &PFLAI2 = 'HIGH'
IF (&PFLAI3 EQ &Z) &PFLAI3 = 'HIGH'
IF (&PFLAI4 EQ &Z) &PFLAI4 = 'HIGH'
IF (&PFLAI5 EQ &Z) &PFLAI5 = 'HIGH'
.ATTRCHAR(+) = 'COLOUR(&PFLAC1) INTENS(&PFLAI1) HILITE(&PFLAH1)'
.ATTR(SEL) = 'TYPE(INPUT) COLOUR(&PFLAC1) INTENS(&PFLAI1) HILITE(&PFLAH1)'
.ATTR(ENTRY) = 'TYPE(OUTPUT) COLOUR(&PFLAC1) INTENS(&PFLAI1) HILITE(&PFLAH1)'
.ATTRCHAR(-) = 'COLOUR(&PFLAC2) INTENS(&PFLAI2) HILITE(&PFLAH2)'
.ATTR(MESSAGE) = 'TYPE(OUTPUT) COLOUR(&PFLAC2) INTENS(&PFLAI2) HILITE(&PFLAH2)'
.ATTRCHAR(*) = 'COLOUR(&PFLAC3) INTENS(&PFLAI3) HILITE(&PFLAH3)'
.ATTR(TYPE) = 'TYPE(OUTPUT) COLOUR(&PFLAC3) INTENS(&PFLAI3) HILITE(&PFLAH3)'
.ATTRCHAR(%) = 'COLOUR(&PFLAC4) INTENS(&PFLAI4) HILITE(&PFLAH4)'
.ATTR(SIZE) = 'TYPE(OUTPUT) COLOUR(&PFLAC4) INTENS(&PFLAI4) HILITE(&PFLAH4)'
.ATTRCHAR($) = 'COLOUR(&PFLAC5) INTENS(&PFLAI5) HILITE(&PFLAH5)'
.HELP = FLTH0001
)REINIT
IF (.MSG EQ &Z)
&SEL = &Z
REFRESH(SEL)
IF (&MESSAGE NE &Z) REFRESH(MESSAGE)
ELSE
IF (.CURSOR EQ 'SEL') .ATTR(.CURSOR) = 'TYPE(INPUT) COLOUR(RED)'
REFRESH(MESSAGE)
IF (&SEL NE &Z) REFRESH SEL
REFRESH(ZCMD)
)PROC
&A = TRUNC(&ZCMD,' ')
IF ( UPPER( A ) EQ CD,BACK,S,MAKEDIR,TOUCH)
.MSG = PSYS018
.CURSOR = ZCMD
EXIT
IF ( &ZCMD EQ &Z AND &FMSG3 NE &Z AND .CURSOR EQ 'FMSG3')
&ZCMD = 'RESET'
EXIT
IF (&SEL EQ '%')
&SEL = &Z
ELSE
IF (&SEL EQ '=')
IF (&OSEL NE &Z) &SEL = &OSEL
ELSE
IF (&SEL NE &Z) &OSEL = &SEL
IF (&SEL EQ '?')
VER (&SEL LIST,ADD,B,C,CC,D,E,EX,FS,I,L,LX,M,NANO,R,S,SUB,T,TT,V,VI,X,/,/X)
IF (UPPER(SEL) EQ ADD,B,C,CC,D,E,EX,FS,I,L,LX,M,NANO,R,S,SUB,T,TT,V,VI,X,/,/X)
&SEL = UPPER(SEL)
IF (&SEL EQ 'S' )
VGET PFLSDEF PROFILE
&TT1 = TRANS(&PFLSDEF, '1','E' '2','V' '3','B', *,'E' )
&SEL = TRANS(&TYPE, 'Dir','L' 'File',&TT1 *,'S' )
&EXGEN = TRANS( &EXGEN &Z,&Z *,/ )
VPUT (EXGEN) PROFILE
IF (.MSG = &Z ) VPUT ZSCROLL PROFILE
)FIELD
FIELD(ENTRY) LEN(4095) SIND(ENTSIND)
FIELD(MESSAGE) SIND(MSGSIND)
)END
/* -------------------------------------------------------- */
/* lspf - ISPF for Linux */
/* Copyright (C) 2021 GPL V3 - Daniel John Erdos */
/* -------------------------------------------------------- */