例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2923.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 PRINTING MODE PM1 FOR MOCS.
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 NONDISP PIC S9(9) BINARY
000010 CHARACTER TYPE PM1.
000011 PROCEDURE DIVISION.
000012 END PROGRAM P2923.
P2923.cob (10) : JMN2923I-S FOR MOCS指定の印字モード名は，集団項目，日本語および日本語編集項目にだけ指定できます．