EASY-Plus クォーテーションをリテラルにするには

■ クォーテーションをリテラルにするには

指定がちょっと面倒くさいけど、例を見てね

EX)

//FILEA    DD *            ←ＩＮＰＵＴデータ
00001',
00002,,
00003' 
00004''
00005'&
//SYSLIN   DD   *
LIST OFF
PARM LIST(NOPARM NOFILE)
FILE FILEA                ←ＩＮＰＵＴデータ定義
NUM         1 5 N
CHAR        6 2 A
*
JOB INPUT FILEA
   IF CHAR = ''''
      DISPLAY 'OK1 ' NUM CHAR
   END-IF
   IF CHAR = ''''''
      DISPLAY 'OK2 ' NUM CHAR
   END-IF
   IF CHAR = ''','
      DISPLAY 'OK3 ' NUM CHAR
   END-IF
   IF CHAR = '''&'
      DISPLAY 'OK4 ' NUM CHAR
   END-IF
/*

                      ↓実行結果

                    OK3 00001',
                    OK1 00003' 
                    OK2 00004''
                    OK4 00005'&

BEFORE PAGE

TOP PAGE