[cvs] jma-receipt-kk/31tottori/cobol: シス管「1901」で設定した電話番号が印字されるように修正

[yoshi@xxxxxxxxxxxxxxxxxx (yoshi)]

yoshi       Wed, 14 Nov 2012 13:19:23 +0900

  Modified files:        (Branch: jma-460)
    jma-receipt-kk/31tottori/cobol:
      SOKATU3115.CBL
  Log:
    シス管「1901」で設定した電話番号が印字されるように修正
    PERFORM→GOTOに修正
  
  Revision    Changes    Path
  1.5.4.1     +15  -3    jma-receipt-kk/31tottori/cobol/SOKATU3115.CBL
    http://cvs.orca.med.or.jp/cgi-bin/cvsweb/jma-receipt-kk/31tottori/cobol/SOKATU3115.CBL?cvsroot=local&r1=1.5&r2=1.5.4.1