-
Notifications
You must be signed in to change notification settings - Fork 18
/
Copy pathpbro01a1
142 lines (115 loc) · 3.42 KB
/
pbro01a1
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
)PANEL VERSION=1 FORMAT=1
)COMMENT
Browse/View Entry panel
)ENDCOMMENT
)ATTR
+ TYPE(NEF) PAD(USER) CAPS(ON)
)INCLUDE std_pdc
)INCLUDE rfl_pdc
)INCLUDE hlp_pdc
)BODY
PANELTITLE 'View Entry Panel'
TEXT 4 2 FP 'Command ===>'
FIELD 4 15 MAX ATTR(+) ZCMD
AREA 6 1 MAX MAX SAREA1
)AREA SAREA1
TEXT 1 2 FP 'File Name. . .'
FIELD 1 17 MAX-4 NEF PAD(USER) ZFILE
FIELD 1 MAX-2 2 LI NONE ZFILEIND
TEXT 4 2 FP 'Initial Macro. . . . .'
FIELD 4 25 8 CEF PAD(USER),caps(off) BEIMAC
TEXT 5 2 FP 'Profile Name . . . . .'
FIELD 5 25 8 CEF PAD(USER),caps(on) BEPROF
TEXT 6 2 FP 'Record Length. . . . .'
FIELD 6 25 5 CEF PAD(USER),caps(on) BERECL
TEXT 7 2 FP 'Line Command Table . .'
FIELD 7 25 8 CEF PAD(USER),caps(on) EELMAC
TEXT 7 35 FP '+'
TEXT 3 40 CH 'Options'
FIELD 4 40 1 CEF PAD(USER) EECCAN
TEXT 4 43 SAC 'Confirm Cancel/Move/Replace'
FIELD 5 40 1 CEF PAD(USER) BEBROM
TEXT 5 43 SAC 'Browse Mode'
FIELD 6 40 1 CEF PAD(USER) BECWARN
TEXT 6 43 SAC 'Warn on first data change'
FIELD 7 40 1 CEF PAD(USER) BETABSS
TEXT 7 43 SAC 'Override XTABS setting to prevent tabs being converted to spaces'
FIELD 8 40 1 CEF PAD(USER) BEDIRLST
TEXT 8 43 SAC 'Show directory list if valid directory entered'
)INIT
.NRET = ON
.NRET = ZFILE
.HIST = 'BEIMAC,BEPROF,EELMAC'
.CURSOR = ZCMD
&ZPM2 = 1
IF (&BEBROM = '/') &ZVMODE1 = 'browse'
ELSE &ZVMODE1 = 'view'
)PROC
if (&ZCMD NE &Z,PROMPT)
.MSG = 'PSYS018'
.CURSOR = ZCMD
EXIT
VER (&ZFILE,NB)
VER (&BEPROF,NAME)
VER (&BERECL,NUM)
VER (&BERECL,RANGE,0,32760)
VER (&EELMAC,NAME)
&BEBROM = TRANS( &BEBROM &Z,&Z *,/ )
&EECCAN = TRANS( &EECCAN &Z,&Z *,/ )
&BECWARN = TRANS( &BECWARN &Z,&Z *,/ )
&BETABSS = TRANS( &BETABSS &Z,&Z *,/ )
&BEDIRLST = TRANS( &BEDIRLST &Z,&Z *,/ )
&ZEDTABSS = TRANS( &BETABSS /,YES *,NO )
VPUT (BEIMAC,BERECL,ZEDTABSS) SHARED
VPUT (BEBROM,EECCAN,BECWARN,BETABSS,BEDIRLST) PROFILE
VPUT (ZFILE,BEPROF,EELMAC) PROFILE
&SHOWDIR = NO
&REV = REVERSE(ZFILE)
&GEN = TRUNC( &REV, 1 )
IF (&GEN EQ '*','?',']' )
&SHOWDIR = 'YES'
EXIT
&GEN = TRUNC( &ZFILE, '*' )
&GEN = .TRAIL
IF (&GEN NE &Z )
&SHOWDIR = 'YES'
EXIT
&GEN = TRUNC( &ZFILE, '?' )
&GEN = .TRAIL
IF (&GEN NE &Z )
&SHOWDIR = 'YES'
EXIT
&GEN = TRUNC( &ZFILE, '[' )
&GEN = .TRAIL
IF (&GEN NE &Z )
&SHOWDIR = 'YES'
EXIT
&ISFILE = FILE( ZFILE )
&ISDIR = DIR( ZFILE )
&REV = REVERSE(ZFILE)
IF (TRUNC(&REV, 1) EQ '/' AND &ISDIR EQ .FALSE )
.MSG = 'PEDT011S'
.CURSOR = 'ZFILE'
EXIT
IF ( &BEDIRLST NE '/' )
IF ( &ISDIR EQ .TRUE )
.CURSOR = 'ZFILE'
.MSG = 'PEDT011T'
EXIT
IF ( &ISFILE EQ .FALSE )
.CURSOR = 'ZFILE'
&ZMVAL1 = &ZFILE
.MSG = 'PEDT011R'
EXIT
ELSE
IF ( &ISFILE EQ .FALSE )
IF ( &ISDIR NE .FALSE )
&SHOWDIR = 'YES'
)FIELD
FIELD(ZFILE) EXEC('SELECT PGM(PFLST0A) PARM(EXPAND ALL) NESTED')
FIELD(ZFILE) LEN(4095) IND(ZFILEIND)
)END
/* -------------------------------------------------------- */
/* lspf - ISPF for Linux */
/* Copyright (C) 2021 GPL V3 - Daniel John Erdos */
/* -------------------------------------------------------- */