)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: +Management class: $&MGMTCLAS +Allocated &UNITS: @ALLOC + +Storage class: $&STORCLAS +Allocated extents: @EXTENTS+ +Volume serial: $&VOLUME +Device type: $&UNIT +Data class: $&DATACLAS +Organization: $&DSORG +CURRENT UTILIZATION: +Record format: $&RECFM +Used &UNITS: @USED + +Record length: $&LRECL +Used extents: @USEDEXT+ +Block size: $&BLKSIZE +1st extent &UNITS: $&PRIMARY +Secondary &UNITS: $&SECONDS +Data set name type: $SEQ +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