identification division.
       program-id. jis1-1.
      *
       environment division.
       input-output section.
       file-control.
           select syain-file assign "h:\p25j-1.dat" 
                        organization line sequential.
           select ichiran-file assign "h:\p25j-1.txt".
      *
       data division. 
       file section.
       fd  syain-file.
       01  syain-rec.
           05 s-code picture 9(5).
           05 s-name picture X(10).
           05 s-sintyo  picture 9(3).
           05 s-taiju picture 9(3).
       fd  ichiran-file.
       01  ichiran-rec picture X(132).
       working-storage section.
       01  e-flg picture X(03).
       01  meisai-gyo.
           05 filler picture X(03) value space.
           05 m-code picture 9(05).
           05 filler picture X(03) value space.
           05 m-name picture X(10).
           05 filler picture X(03) value space.
           05 m-sintyo picture 9(03).
           05 filler picture X(03) value space.
           05 m-taiju picture 9(03).
      *
       procedure division.
       syori.
            open input syain-file output ichiran-file
                   move "off" to e-flg
            perform until e-flg = "on"
                read syain-file        
                    at end
                        move "on" to e-flg
                    not at end
                        move s-code to m-code
                        move s-name to m-name
                        move s-sintyo to m-sintyo
                        move s-taiju to m-taiju
                        move meisai-gyo to ichiran-rec
                        write ichiran-rec after 1
               end-read
            end-perform
            close syain-file ichiran-file
            stop run.