入力レコードの内容と比較してＩＮＣＬＵＤＥ／ＯＭＩＴする方法

■ 入力レコードの内容と比較してＩＮＣＬＵＤＥ／ＯＭＩＴする方法

入力レコードの内容と比較してＩＮＣＬＵＤＥ／ＯＭＩＴする方法です

▲その１ (INCLUDE/OMIT COND指定)

  //SORT  EXEC SORT
  //SYSPRINT DD SYSOUT=*
  //SORTIN   DD *
  111111111@@@
  @@@222222@@@
  333@@@222222
  //SORTOUT  DD SYSOUT=*
  //SYSIN    DD  *
  OPTION COPY
  INCLUDE COND=(1,3,CH,EQ,10,3,CH)    ←入力レコードの１～３バイト目が１０～１２バイト目と等しい場合

  /*

実行結果

********************************** TOP OF DATA **********************************
@@@222222@@@
********************************** BOTTOM OF DATA *******************************

▲その２(OUTFILE指定)

  //SORT  EXEC SORT
  //SYSPRINT DD SYSOUT=*
  //SORTIN   DD *
  111111111@@@
  @@@222222@@@
  333@@@222222
  //SORTOUT  DD SYSOUT=*
  //SYSIN    DD  *
  OPTION COPY
  OUTFIL FNAMES=SORTOUT,INCLUDE=(1,3,CH,EQ,10,3,CH)   ←入力レコードの１～３バイト目が１０～１２バイト目と等しい場合

  /*

実行結果は、その１同じとです

▲その３(キャラクターの数字ととパックの数字を比較)

  //SORT  EXEC SORT
  //SYSPRINT DD SYSOUT=*
  //SORTIN   DD *  (HEX表示)
  FFFFFFFFF055  ←キャラクターの５５５と、パックのX'00555C'を比較
  55511111105C
  FFFFFFFFF013  ←キャラクターの５５５と、パックのX'00123C'を比較
  55511111102C
  //SORTOUT  DD SYSOUT=*
  //SYSIN    DD  *
  OPTION COPY
  OUTFIL FNAMES=SORTOUT,INCLUDE=(1,3,ZD,EQ,10,3,PD)    ←入力レコードの１～３バイト目のキャラクターの数字が１０～１２バイト目のパックの数字と等しい場合
  /*

実行結果(HEX表示)

********************************** TOP OF DATA **********************************
  FFFFFFFFF055
  55511111105C
********************************** BOTTOM OF DATA *******************************

※比較するタイプが数値の場合、CHとPDは比較できません。→U-0114でアベンドします。⇒ここを見てね。

BEFORE PAGE

TOP PAGE