)ATTR + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) % TYPE(TEXT) INTENS(HIGH) COLOR(PINK) # TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) $ TYPE(TEXT) INTENS(LOW) COLOR(TURQ) @ TYPE(OUTPUT) INTENS(LOW) COLOR(TURQ) JUST(RIGHT) _ TYPE(INPUT) INTENS(HIGH) COLOR(RED) )BODY EXPAND(//) %XEF - eXtended Editor Facility (&ZAPPLID) - DATA SET INFORMATION -/-/ V6.4 --- %COMMAND ===>_ZCMD + +DATA SET NAME:#&DSNAME % +GENERAL INFORMATION: +CURRENT ALLOCATION: +Volume serial: $&VOLUME +Allocated &UNITS: @ALLOC + +Device type: $&UNIT +Allocated extents: @EXTENTS+ +Organization: $&DSORG +Maximum dir. blocks: @ADIRBLK+ +Record format: $&RECFM +Record length: $&LRECL +CURRENT UTILIZATION: +Block size: $&BLKSIZE +Used &UNITS: @USED + +1st extent &UNITS: $&PRIMARY +Used extents: @USEDEXT+ +Secondary &UNITS: $&SECONDS +Used dir. blocks: @UDIRBLK+ +Number of members: @MEMBERS+ +Creation date: $&CREATE +Last reference date: @REFDATE + +Expiration date: $&EXDATE +Update indicator @UPDATED+ %&EXPERM )INIT .HELP = XEFHELP &UNITS = TRANS (&UNITS CYLINDER,cylinders TRACK,tracks BLOCK,blocks) IF (&EXDATE = '0') &EXDATE = '**NONE**' IF (&EXDATE = '1999/365') &EXPERM = '(Permanent Retention)' IF (&EXDATE = '1999/366') &EXPERM = '(Permanent Retention)' )PROC )END