埋め込みの説明
@1@ : データ名
@2@ : JUSTIFIED,ANY LENGTH
例題
000001 @OPTIONS ENCODE(UTF8,UTF32) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P3568. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 W-X-JUST PIC X(20) JUSTIFIED VALUE "HELLO". 000007 01 W-N-UTF32 PIC N(10). 000008 PROCEDURE DIVISION. 000009 MOVE CONVERSION W-X-JUST TO W-N-UTF32. 000010 END PROGRAM P3568.
P3568.cob 9: JMN3568I-S CONVERSION指定のMOVE文に,JUSTIFIED句が指定された項目である'W-X-JUST'は指定できません.