)ATTR + TYPE(TEXT) INTENS(LOW) % TYPE(TEXT) INTENS(HIGH) _ TYPE(INPUT) INTENS(HIGH) )BODY EXPAND (//) %-/-/ Interactive AMBLIST -/-/ %COMMAND ===>_ZCMD + + + Valid options: + 1=LISTIDR 2=LISTLOAD XREF 3=LISTLOAD 4=LISTOBJ 5=LISTLPA + + List option ===>_O+ + Library name ===>_AMBDSN + + Member name ===>_AMBMEM + + Volser ===>_AMBVOL+ + + + Choose an AMBLIST option. You must enter a valid library name and a + member name when using options 1 through 4. An "*" can also be used + to process all members when using options 1 through 4. The library + name and member name are ignored when using option 5 (LISTLPA). + + + Press%PF3+to EXIT+ )INIT &ZPRIM = NO .CURSOR = O &O = &AMBOPT IF (&O = &Z ) &O = 1 )PROC VER (&O,NONBLANK) VER (&O,LIST,1,2,3,4,5) IF (&O NE 5) VER (&AMBDSN,NONBLANK) VER (&AMBDSN,DSNAME) VER (&AMBMEM,NONBLANK) IF (&AMBMEM NE '*') VER (&AMBMEM,NAME) &AMBOPT = &O VPUT (AMBDSN AMBMEM AMBOPT AMBVOL) PROFILE )END