>> Is there a way to make SORT date comparisons referencing the IPL date? I >> have not been able to find anything on the manual.
Jack, DFSORT does not have direct access to IPL info. It can access system symbols but there is no system symbol defined for LAST IPL date (AFAIK). So as others have pointed out, you can code a simple rexx and get the date. or better yet use SDSF rexx interface to get the information from the command /D IPLINFO. It is easy to parse out the info and the get the date. Here is a sample of SDSF rexx interface (your IPL info can be found in SYSTSPRT dd name in the 2nd step) //************************************************************** //* SDSF REXX EXEC INTERFACE TO GET IPLINFO * //************************************************************** //COPYREXX EXEC PGM=IEBUPDTE,PARM='NEW' //SYSPRINT DD SYSOUT=* //SYSUT2 DD DSN=&&EXEC,DISP=(NEW,PASS), // UNIT=SYSDA,SPACE=(TRK,(2,2,2)), // LRECL=80,RECFM=FB //SYSIN DD DATA,DLM='$$' ./ ADD NAME=IPLINF /* REXX */ LASTRC=ISFCALLS("ON") ISFDELAY = 3 MYCMD.0 = 1 MYCMD.1 = "D IPLINFO" ADDRESS SDSF "ISFSLASH ("MYCMD.") (WAIT)" DO RESPINDEX = 1 TO ISFULOG.0 SAY ISFULOG.RESPINDEX END LASTRC=ISFCALLS("OFF") $$ //* //************************************************************** //* EXECUTE THE REXX EXEC TO FIND THE IPL INFORMATION * //************************************************************** //SDSFREXX EXEC PGM=IKJEFT01 //SYSPROC DD DSN=&&EXEC,DISP=(OLD,PASS) //SYSTSPRT DD SYSOUT=* //ISPPLIB DD DSN=ISP.SISPPENU,DISP=SHR //ISPSLIB DD DSN=ISP.SISPSENU,DISP=SHR //ISPMLIB DD DSN=ISP.SISPMENU,DISP=SHR //ISPTLIB DD DSN=ISP.SISPTENU,DISP=SHR //ISPLOG DD SYSOUT=*, // DCB=(BLKSIZE=129,LRECL=125,RECFM=VA,DSORG=PS) //ISPPROF DD UNIT=SYSDA,SPACE=(TRK,(1,1,1)), // DCB=(BLKSIZE=800,LRECL=80,RECFM=FB) //SYSTSIN DD * PROFILE WTPMSG MSGID VARSTORAGE(HIGH) TIME ISPSTART CMD(%IPLINF) /* I don’t know the complete requirement, so I haven’t added the steps to parse out the information and the processing. I can show you the processing once you explain the requirement. Thanks, Kolusu DFSORT Development IBM Corporation ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN