付録 A - RM/COBOL ソース ファイル

RM/COBOL ソース ファイルの 1 つを使用して変換プロセスをテストしない場合は、本付録に記載されているソースを使用できます。
       identification division.
       program-id. RmProgram1.
 
       environment division.
       configuration section.
 
       data division.
        Working-Storage section.
        01 singleChar  PIC X.
 
       PROCEDURE DIVISION.
 
       Main.
       
           DISPLAY "Simple Display Tests in RM" ERASE  
           DISPLAY "ABC FCOLOR BLUE" AT 0203 CONTROL "FCOLOR=BLUE"  
           DISPLAY "ABC BCOLOR CYAN" AT 0304
                     CONTROL "BCOLOR=CYAN"
           DISPLAY "ABC FCOLOR MAGENTA" AT 0405
                     CONTROL "FCOLOR=MAGENTA"  
           DISPLAY "ABC FCOLOR GREEN"    AT 0506
                     CONTROL "FCOLOR=GREEN"    
           DISPLAY "ABC BCOLOR BROWN"   AT 0607
                     CONTROL "BCOLOR=BROWN"
           DISPLAY "Any Key to Continue..." AT 1002
                     CONTROL "BCOLOR=BLACK, FCOLOR=WHITE"  
                     
           ACCEPT singleChar at 1025.
           goback.
       end program RmProgram1.