■   本日日付を出力する


ＤＡＴＥｘを使うとＳＯＲＴＯＵＴに本日の日付を出力することができます。（DFSORT REL14以上）
EX)
  //SORT  EXEC SORT
  //SYSPRINT DD SYSOUT=*
  //SORTIN   DD *
  11111111111111111111
  22222222222222222222
  /*
  //SORTOUT  DD SYSOUT=*
  //SYSIN    DD *
  OPTION COPY
  OUTFIL FNAMES=SORTOUT,
    OUTREC=(1,10,C ' ',DATE1(/),C ' ',DATE2(-),C ' ',DATE3(/),C ' ',42X)
  /*
出力に、入力の１〜１０バイトをセット、西暦8桁を／で編集してセット、西暦の年月をーで編集してセット、ジュリアンデートを／で編集してセット

     

SYSOUT 
1111111111 2023/10/26 2023-10 2023/299
2222222222 2023/10/26 2023-10 2023/299


DATExは以下のとおりです。
 ・DATE1（キャラクタ） ： YYYYMMDD
 ・DATE2（キャラクタ） ： YYYYMM
 ・DATE3（キャラクタ） ： YYYYDDD（ジュリアン）
 ・DATE1(c)（キャラクタ(cは編集文字)） ： YYYY/MM/DD
 ・DATE2(c)（キャラクタ(cは編集文字)） ： YYYY/MM
 ・DATE3(c)（キャラクタ(cは編集文字)） ： YYYY/DDD（ジュリアン）
 ・DATE1P（パック） ： YYYYMMDD
 ・DATE2P（パック） ： YYYYMM
 ・DATE3P（パック） ： YYYYDDD（ジュリアン）



BEFORE PAGE

TOP PAGE

Copyright©2002- FUKU All rights reserved.