)ATTR ! TYPE(DATAOUT) INTENS(LOW) COLOR(TURQ) HILITE(USCORE) CAPS(OFF) # TYPE(DATAOUT) INTENS(HIGH) COLOR(TURQ) ^ AREA(DYNAMIC) | AREA(SCRL) EXTEND(ON) % TYPE(TEXT) INTENS(HIGH) COLOR(PINK) SKIP(ON) _ TYPE(INPUT) INTENS(HIGH) COLOR(RED) @ TYPE(INPUT) INTENS(LOW) COLOR(BLUE) )BODY CMD(XODSN) EXPAND(//) %XEF - eXtended Editor Facility (&ZAPPLID) - USER:&ZUSER SYS:&ZSYSID /-/ V6.4 - %OPTION ===>_XOPT / / %NUMBER ==>_XN% MEMBER ==>_XMEM % ^MENU ^ ^MEN2 ^%OTHER DSN OR COMMAND%==>_XODSN % %-/-/ |XEFSCRL | )AREA XEFSCRL % 1@XDSN1 %51@XDSN51 % 2@XDSN2 %52@XDSN52 % 3@XDSN3 %53@XDSN53 % 4@XDSN4 %54@XDSN54 % 5@XDSN5 %55@XDSN55 % 6@XDSN6 %56@XDSN56 % 7@XDSN7 %57@XDSN57 % 8@XDSN8 %58@XDSN58 % 9@XDSN9 %59@XDSN59 %10@XDSN10 %60@XDSN60 %11@XDSN11 %61@XDSN61 %12@XDSN12 %62@XDSN62 %13@XDSN13 %63@XDSN63 %14@XDSN14 %64@XDSN64 %15@XDSN15 %65@XDSN65 %16@XDSN16 %66@XDSN66 %17@XDSN17 %67@XDSN67 %18@XDSN18 %68@XDSN68 %19@XDSN19 %69@XDSN69 %20@XDSN20 %70@XDSN70 %21@XDSN21 %71@XDSN71 %22@XDSN22 %72@XDSN72 %23@XDSN23 %73@XDSN73 %24@XDSN24 %74@XDSN74 %25@XDSN25 %75@XDSN75 %26@XDSN26 %76@XDSN76 %27@XDSN27 %77@XDSN77 %28@XDSN28 %78@XDSN78 %29@XDSN29 %79@XDSN79 %30@XDSN30 %80@XDSN80 %31@XDSN31 %81@XDSN81 %32@XDSN32 %82@XDSN82 %33@XDSN33 %83@XDSN83 %34@XDSN34 %84@XDSN84 %35@XDSN35 %85@XDSN85 %36@XDSN36 %86@XDSN86 %37@XDSN37 %87@XDSN87 %38@XDSN38 %88@XDSN88 %39@XDSN39 %89@XDSN89 %40@XDSN40 %90@XDSN90 %41@XDSN41 %91@XDSN91 %42@XDSN42 %92@XDSN92 %43@XDSN43 %93@XDSN93 %44@XDSN44 %94@XDSN94 %45@XDSN45 %95@XDSN95 %46@XDSN46 %96@XDSN96 %47@XDSN47 %97@XDSN97 %48@XDSN48 %98@XDSN98 %49@XDSN49 %99@XDSN99 %50@XDSN50 % )INIT &PDS = Y /* Y or N for PDS command support */ .HELP = XEFHELP .CURSOR = XOPT &MENU= ' #B-Browse# V-View# E-Edit# M-MemList# + D-Dslist# Z-Compress# I-Info# F-Find#' &MEN2= ' #X-!Exit#' IF (&PDS = Y) &MENU= '#B-Browse# V-View# E-Edit# M-Memlist# + D-Dslist# Z-Compress# I-Info# P-PDS#F-Find#' &MEN2= '#X-Exit#' VGET (XOPT XN XMEM XODSN) PROFILE VGET (XDSN1 XDSN2 XDSN3 XDSN4 XDSN5) PROFILE VGET (XDSN6 XDSN7 XDSN8 XDSN9 XDSN10) PROFILE VGET (XDSN11 XDSN12 XDSN13 XDSN14 XDSN15) PROFILE VGET (XDSN16 XDSN17 XDSN18 XDSN19 XDSN20) PROFILE VGET (XDSN21 XDSN22 XDSN23 XDSN24 XDSN25) PROFILE VGET (XDSN26 XDSN27 XDSN28 XDSN29 XDSN30) PROFILE VGET (XDSN31 XDSN32 XDSN33 XDSN34 XDSN35) PROFILE VGET (XDSN36 XDSN37 XDSN38 XDSN39 XDSN40) PROFILE VGET (XDSN41 XDSN42 XDSN43 XDSN44 XDSN45) PROFILE VGET (XDSN46 XDSN47 XDSN48 XDSN49 XDSN50) PROFILE VGET (XDSN51 XDSN52 XDSN53 XDSN54 XDSN55) PROFILE VGET (XDSN56 XDSN57 XDSN58 XDSN59 XDSN60) PROFILE VGET (XDSN61 XDSN62 XDSN63 XDSN64 XDSN65) PROFILE VGET (XDSN66 XDSN67 XDSN68 XDSN69 XDSN70) PROFILE VGET (XDSN71 XDSN72 XDSN73 XDSN74 XDSN75) PROFILE VGET (XDSN76 XDSN77 XDSN78 XDSN79 XDSN80) PROFILE VGET (XDSN81 XDSN82 XDSN83 XDSN84 XDSN85) PROFILE VGET (XDSN86 XDSN87 XDSN88 XDSN89 XDSN90) PROFILE VGET (XDSN91 XDSN92 XDSN93 XDSN94 XDSN95) PROFILE VGET (XDSN96 XDSN97 XDSN98 XDSN99) PROFILE IF (&PDS = N) IF (&XOPT NE B,V,E,M,D,Z,I,F,FIND) &XOPT = &Z IF (&PDS = Y) IF (&XOPT NE B,V,E,M,D,Z,I,P,F,FIND) &XOPT = &Z )PROC IF (&XN NE &Z) &XN = TRANS(&XN 01,1 02,2 03,3 04,4 05,5 06,6 07,7 08,8 09,9 *,*) IF (.CURSOR GE XDSN1 AND .CURSOR LE XDSN99) &XN = TRUNC(.CURSOR,4) &XN = .TRAIL IF (&XOPT EQ BROWSE) &XOPT = 'B' IF (&XOPT EQ VIEW) &XOPT = 'V' IF (&XOPT EQ EDIT) &XOPT = 'E' IF (&XOPT EQ MEMLIST) &XOPT = 'M' IF (&XOPT EQ DSLIST) &XOPT = 'D' IF (&XOPT EQ COMPRESS) &XOPT = 'Z' IF (&XOPT EQ INFO) &XOPT = 'I' IF (&XOPT EQ PDS) &XOPT = 'P' IF (&XOPT EQ FIND) &XOPT = 'F' IF (&XOPT EQ EXIT) &XOPT = 'X' &ZSEL = TRANS( TRUNC(&XOPT,) B,'CMD(%XEFCLIST &XOPT &XN XMEM(''&XMEM''))' V,'CMD(%XEFCLIST &XOPT &XN XMEM(''&XMEM''))' E,'CMD(%XEFCLIST &XOPT &XN XMEM(''&XMEM''))' M,'CMD(%XEFCLIST &XOPT &XN XMEM(''&XMEM''))' D,'CMD(%XEFCLIST &XOPT &XN)' Z,'CMD(%XEFCLIST &XOPT &XN)' I,'CMD(%XEFCLIST &XOPT &XN)' P,'CMD(%XEFCLIST &XOPT &XN XMEM(''&XMEM''))' F,'CMD(%XEFCLIST &XOPT &XN)' FIND,'CMD(%XEFCLIST &XOPT &XN)' X,'EXIT') IF (&PDS = N) VER(&XOPT,NONBLANK,MSG=XEF001A) VER(&XOPT,LIST,B,V,E,M,D,Z,I,F,FIND,MSG=XEF001B) IF (&PDS = Y) VER(&XOPT,NONBLANK,MSG=XEF001C) VER(&XOPT,LIST,B,V,E,M,D,Z,I,P,F,FIND,MSG=XEF001D) IF (&XODSN EQ &Z) VER(&XN,NONBLANK,MSG=XEF002A) VER(&XN,NUM,MSG=XEF002B) VER(&XN,RANGE,1,99,MSG=XEF002B) IF (&XODSN NE &Z) IF (.CURSOR GE XDSN1 AND .CURSOR LE XDSN99) .CURSOR = .CURSOR .MSG=XEF002D VER(&XN,LIST,' ',MSG=XEF002C) &ZSEL = TRANS( TRUNC(&XOPT,) B,'CMD(%XEFCLIST &XOPT DUMMYDN XMEM(''&XMEM''))' V,'CMD(%XEFCLIST &XOPT DUMMYDN XMEM(''&XMEM''))' E,'CMD(%XEFCLIST &XOPT DUMMYDN XMEM(''&XMEM''))' M,'CMD(%XEFCLIST &XOPT DUMMYDN XMEM(''&XMEM''))' D,'CMD(%XEFCLIST &XOPT DUMMYDN)' Z,'CMD(%XEFCLIST &XOPT DUMMYDN)' I,'CMD(%XEFCLIST &XOPT DUMMYDN)' F,'CMD(%XEFCLIST &XOPT DUMMYDN)' FIND,'CMD(%XEFCLIST &XOPT DUMMYDN)' P,'CMD(%XEFCLIST &XOPT DUMMYDN)') VPUT (XOPT XN XMEM XODSN) PROFILE VPUT (XDSN1 XDSN2 XDSN3 XDSN4 XDSN5) PROFILE VPUT (XDSN6 XDSN7 XDSN8 XDSN9 XDSN10) PROFILE VPUT (XDSN11 XDSN12 XDSN13 XDSN14 XDSN15) PROFILE VPUT (XDSN16 XDSN17 XDSN18 XDSN19 XDSN20) PROFILE VPUT (XDSN21 XDSN22 XDSN23 XDSN24 XDSN25) PROFILE VPUT (XDSN26 XDSN27 XDSN28 XDSN29 XDSN30) PROFILE VPUT (XDSN31 XDSN32 XDSN33 XDSN34 XDSN35) PROFILE VPUT (XDSN36 XDSN37 XDSN38 XDSN39 XDSN40) PROFILE VPUT (XDSN41 XDSN42 XDSN43 XDSN44 XDSN45) PROFILE VPUT (XDSN46 XDSN47 XDSN48 XDSN49 XDSN50) PROFILE VPUT (XDSN51 XDSN52 XDSN53 XDSN54 XDSN55) PROFILE VPUT (XDSN56 XDSN57 XDSN58 XDSN59 XDSN60) PROFILE VPUT (XDSN61 XDSN62 XDSN63 XDSN64 XDSN65) PROFILE VPUT (XDSN66 XDSN67 XDSN68 XDSN69 XDSN70) PROFILE VPUT (XDSN71 XDSN72 XDSN73 XDSN74 XDSN75) PROFILE VPUT (XDSN76 XDSN77 XDSN78 XDSN79 XDSN80) PROFILE VPUT (XDSN81 XDSN82 XDSN83 XDSN84 XDSN85) PROFILE VPUT (XDSN86 XDSN87 XDSN88 XDSN89 XDSN90) PROFILE VPUT (XDSN91 XDSN92 XDSN93 XDSN94 XDSN95) PROFILE VPUT (XDSN96 XDSN97 XDSN98 XDSN99) PROFILE )END