)ATTR
  % TYPE(TEXT)  INTENS(HIGH) SKIP(ON)
  + TYPE(TEXT)  INTENS(LOW)  SKIP(ON)
  _ TYPE(INPUT) INTENS(HIGH)
  # AREA(SCRL)  EXTEND(ON)
)BODY
%--------------------------- DATA SET LIST UTILITY -----------------------------
%OPTION  ===>_ZCMD

%  blank+- Display data set list%*         %P+ - Print data set list
%  V    +- Display VTOC information only   %PV+- Print VTOC information only
%
+Enter one or both of the parameters below: (or use one of the 'Alt' levels)
+  DSNAME LEVEL %===>_UDLAL0                                      +
+  VOLUME       %===>_ZDLPVL+
+
#dsns                                                                         #
%
+  INITIAL DISPLAY VIEW    %===>_ZUPIV   +(VOLUME,SPACE,ATTRIB,TOTAL)
+  CONFIRM DELETE REQUEST  %===>_Z+       (YES or NO)
%
)AREA DSNS
+    Alt LEVEL  %===>_UDLALA                                      +
+    Alt LEVEL  %===>_UDLALB                                      +
+    Alt LEVEL  %===>_UDLALC                                      +
+    Alt LEVEL  %===>_UDLALD                                      +
+    Alt LEVEL  %===>_UDLALE                                      +
+    Alt LEVEL  %===>_UDLALF                                      +
+    Alt LEVEL  %===>_UDLALG                                      +
+    Alt LEVEL  %===>_UDLALH                                      +
+    Alt LEVEL  %===>_UDLALI                                      +
+    Alt LEVEL  %===>_UDLALJ                                      +
+    Alt LEVEL  %===>_UDLALK                                      +
+    Alt LEVEL  %===>_UDLALL                                      +
+    Alt LEVEL  %===>_UDLALM                                      +
+    Alt LEVEL  %===>_UDLALN                                      +
+    Alt LEVEL  %===>_UDLALO                                      +
+    Alt LEVEL  %===>_UDLALP                                      +
+    Alt LEVEL  %===>_UDLALQ                                      +
+    Alt LEVEL  %===>_UDLALR                                      +
+    Alt LEVEL  %===>_UDLALS                                      +
+    Alt LEVEL  %===>_UDLALT                                      +
+    Alt LEVEL  %===>_UDLALU                                      +
+    Alt LEVEL  %===>_UDLALV                                      +
+    Alt LEVEL  %===>_UDLALW                                      +
+    Alt LEVEL  %===>_UDLALX                                      +
+    Alt LEVEL  %===>_UDLALY                                      +
+    Alt LEVEL  %===>_UDLALZ                                      +
)INIT
  .ZVARS = '(ZDSLCONF)'
  .HELP = ISR34000
  VGET (ZDSLCONV UDLFLD UDLAL0 UDLALA UDLALB UDLALC UDLALD
                     UDLALE UDLALF UDLALG UDLALH UDLALI
                     UDLALJ UDLALK UDLALL UDLALM UDLALN
                     UDLALO UDLALP UDLALQ UDLALR
                     UDLALS UDLALT UDLALU UDLALV
                     UDLALW UDLALX UDLALY UDLALZ        ) PROFILE
  IF (.MSG = &Z)
  &ZCMD = &ZUOPT
  &ZUPIV = TRANS (&ZUVIEW 0,VOLUME 1,SPACE 2,ATTRIB 3,TOTAL *,VOLUME)
  VGET (ZDSLCONV)
  &ZDSLCONF = TRANS (&ZDSLCONV ON,Y OFF,N *,N)
  VPUT (ZDSLCONF)
  .CURSOR = &UDLFLD
)REINIT
  VGET (ZDSLCONV)
  VGET (ZDSLCONV UDLFLD UDLAL0 UDLALA UDLALB UDLALC UDLALD
                     UDLALE UDLALF UDLALG UDLALH UDLALI
                     UDLALJ UDLALK UDLALL UDLALM UDLALN
                     UDLALO UDLALP UDLALQ UDLALR
                     UDLALS UDLALT UDLALU UDLALV
                     UDLALW UDLALX UDLALY UDLALZ        ) SHARED
  &ZDSLCONF = TRANS (&ZDSLCONV ON,Y OFF,N *,N)
  VPUT (ZDSLCONF)
  .CURSOR = &UDLFLD
)PROC
  IF (&ZCMD ^= ' ')
    VER (&ZCMD,LIST,P,V,PV)
  &ZUOPT = TRUNC (&ZCMD,2)
  IF (&ZUOPT = 'V ','PV')
    VER (&ZDLPVL,NONBLANK)
  &UDLFLD = .CURSOR
  IF (&UDLFLD = UDLAL0)
    &ZDLDSNLV = &UDLAL0
  IF (&UDLFLD = UDLALA)
    &ZDLDSNLV = &UDLALA
  IF (&UDLFLD = UDLALB)
    &ZDLDSNLV = &UDLALB
  IF (&UDLFLD = UDLALC)
    &ZDLDSNLV = &UDLALC
  IF (&UDLFLD = UDLALD)
    &ZDLDSNLV = &UDLALD
  IF (&UDLFLD = UDLALE)
    &ZDLDSNLV = &UDLALE
  IF (&UDLFLD = UDLALF)
    &ZDLDSNLV = &UDLALF
  IF (&UDLFLD = UDLALG)
    &ZDLDSNLV = &UDLALG
  IF (&UDLFLD = UDLALH)
    &ZDLDSNLV = &UDLALH
  IF (&UDLFLD = UDLALI)
    &ZDLDSNLV = &UDLALI
  IF (&UDLFLD = UDLALJ)
    &ZDLDSNLV = &UDLALJ
  IF (&UDLFLD = UDLALK)
    &ZDLDSNLV = &UDLALK
  IF (&UDLFLD = UDLALL)
    &ZDLDSNLV = &UDLALL
  IF (&UDLFLD = UDLALM)
    &ZDLDSNLV = &UDLALM
  IF (&UDLFLD = UDLALN)
    &ZDLDSNLV = &UDLALN
  IF (&UDLFLD = UDLALO)
    &ZDLDSNLV = &UDLALO
  IF (&UDLFLD = UDLALP)
    &ZDLDSNLV = &UDLALP
  IF (&UDLFLD = UDLALQ)
    &ZDLDSNLV = &UDLALQ
  IF (&UDLFLD = UDLALR)
    &ZDLDSNLV = &UDLALR
  IF (&UDLFLD = UDLALS)
    &ZDLDSNLV = &UDLALS
  IF (&UDLFLD = UDLALT)
    &ZDLDSNLV = &UDLALT
  IF (&UDLFLD = UDLALU)
    &ZDLDSNLV = &UDLALU
  IF (&UDLFLD = UDLALV)
    &ZDLDSNLV = &UDLALV
  IF (&UDLFLD = UDLALW)
    &ZDLDSNLV = &UDLALW
  IF (&UDLFLD = UDLALX)
    &ZDLDSNLV = &UDLALX
  IF (&UDLFLD = UDLALY)
    &ZDLDSNLV = &UDLALY
  IF (&UDLFLD = UDLALZ)
    &ZDLDSNLV = &UDLALZ
  &ZVIEW = TRUNC (&ZUPIV,1)
  VER (&ZVIEW,NB,LIST,V,S,A,T)
  &ZUPIV = TRANS (&ZVIEW V,VOLUME S,SPACE A,ATTRIB T,TOTAL *,*)
  &ZUVIEW = TRANS (&ZVIEW V,0 S,1 A,2 T,3 *,*)
  &ZDSLCONV = TRANS (&ZDSLCONF Y,ON N,OFF *,OFF)
  VPUT (ZDSLCONV UDLFLD UDLAL0 UDLALA UDLALB UDLALC UDLALD
                     UDLALE UDLALF UDLALG UDLALH UDLALI
                     UDLALJ UDLALK UDLALL UDLALM UDLALN
                     UDLALO UDLALP UDLALQ UDLALR
                     UDLALS UDLALT UDLALU UDLALV
                     UDLALW UDLALX UDLALY UDLALZ        ) SHARED
  VPUT (ZDSLCONV UDLFLD UDLAL0 UDLALA UDLALB UDLALC UDLALD
                     UDLALE UDLALF UDLALG UDLALH UDLALI
                     UDLALJ UDLALK UDLALL UDLALM UDLALN
                     UDLALO UDLALP UDLALQ UDLALR
                     UDLALS UDLALT UDLALU UDLALV
                     UDLALW UDLALX UDLALY UDLALZ        ) PROFILE
)END