FILE-CONTRO. SELECT PR ASSIGN TO PR-PRN999-{フォーム名}. WORKING-STORAGE SECTION. 77 PRN-DATA1 PIC X(6) VALUE "PRN123". 77 PRN-DATA2 PIC X(6) VALUE " ". ↑空白6つです PROCEDURE DIVISION. CALL "CBLASGN" USING PR PRN-DATA1 PRN-DATA2.