identification division.
program-id. CALL-TEST.
data division.
working-storage section.
01 numeri PIC 9(4).
procedure division.
move 0721 to numeri.
call 'sub1' using by value numeri.
display "Hello After C".
stop run.
jsコードは省略。