date - 使用 SAS 读取以句点分隔的儒略日期

Question

我正在使用 SAS 9.2 尝试从列出有关 z/OS 大型机数据集的信息的 IDCAMS 实用程序报告中读取数据。日期格式为 yyyy.jjj，其中 yyyy 是四位数年份，jjj 是一年中的儒略日。时期是问题，因为标准的 SAS INFORMATS 不喜欢它。我将如何阅读这样的日期？

示例代码：

DATA ALL smflist (KEEP=DSNAME volser) ;         
LENGTH dsname $ 44. volser $ 6. createdt 8.;   
INFILE SYSPRINT LENGTH=LEN;                     
input @ "NONVSAM ------- " dsname;             
input @ "CREATION--------" createdt JULIAN8.;   
input @ "VOLSER------------" volser;           

包含 INFILE SYSPRINT 的示例输出：（第 54 列有创建日期）

NOTE: Invalid data for createdt in line 282 54-61.                               
NONVSAM ------- SYSP.LPAR.SMFOTHR.ROLLING.G3563V00                               
     IN-CAT --- USR.UCAT.ALIASP                                                 
     HISTORY                                                                     
       DATASET-OWNER-----(NULL)     CREATION--------2014.174                     
       RELEASE----------------2     EXPIRATION------0000.000                     
       ACCOUNT-INFO-----------------------------------(NULL)                     
       STATUS------------ACTIVE                                                 
     SMSDATA                                                                     
       STORAGECLASS ------SCPNV     MANAGEMENTCLASS-MCPNVGD2                     
       DATACLASS ---------DCSMF     LBACKUP ---XXXX.XXX.XXXX                     
     VOLUMES                                                                     
       VOLSER------------MIGRAT     DEVTYPE------X'78048081'     FSEQN---------- 
     ASSOCIATIONS                                                               
       GDG------SYSP.LPAR.SMFOTHR.ROLLING                                       
     ATTRIBUTES                                                                 

Answer 1

这段代码处理了它......

  DATA smflist (KEEP=dsname createdt volser) ;               
  LENGTH dsname $ 44. volser $ 6. dummy $ 8. createdt 7.;   
  FORMAT CREATEDT MMDDYY10.;                                 
  INFILE SYSPRINT LENGTH=LEN;                               
  input @ "NONVSAM ------- " dsname;                         
  input @ "CREATION--------" dummy;                         
  dummy = prxchange('s/(\d{4}).(\d{3})/\1\2/', -1, dummy);   
  createdt = input(dummy,JULIAN7.);                         
  input @ "VOLSER------------" volser;