The query defaults are:
DATEPART(ENDTS)
%LET TOPNN = 20 ; /* <------ change if desired */
DSN_CIRK = DSNAME ; /* after input file is sorted by descending DAASCIS the rank is prefixed to the DSNAME and the TOPNN are output */ RETAIN TOPNN &TOPNN ; RETAIN COUNT 0 ; IF FIRST.CPCID THEN COUNT=1 ; IF COUNT LE TOPNN THEN DO ; DSN_CIRK=PUT(COUNT,Z2.) || ' - ' || LEFT(TRIM(DSN_CIRK)) ; OUTPUT FILE2 ; COUNT+1 ; END ;
|
Copyright © 2014 CA.
All rights reserved.
|
|