[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [cvs] jma-receipt/cobol/copy, jma-receipt/cobol/orcabt: 入院オーダエラー編集サブ追加

サブできました。

最終的なコピー句はこんな感じ
       01  ORCSBD009SAREA.
           03  BD009S-ERR-G.
               05  BD009S-ERR-CNT      PIC 9(05).
               05  BD009S-ERR-OCC      OCCURS  100.
                   07  BD009S-ERRCD    PIC X(04).
                   07  BD009S-ERRMES   PIC X(100).

呼び出し形式は

CALL "ORCBD009S" USING     ORCSBD009SAREA
                           LNK-ORDER-REC

よろしくお願いします。


otaさん wrote  2005/12/08 14:00:
> ota         Thu, 8 Dec 2005 14:00:52 +0900
> 
>   Modified files:
>     jma-receipt/cobol/copy:
>       Makefile.in
>     jma-receipt/cobol/orcabt:
>       Makefile
>   Added files:
>     jma-receipt/cobol/copy:
>       CPORCBD009S.INC
>     jma-receipt/cobol/orcabt:
>       ORCBD009S.CBL
>   Log:
>     入院オーダエラー編集サブ追加
>   
>   Revision    Changes    Path
>   1.1         -ADDED-    jma-receipt/cobol/copy/CPORCBD009S.INC
>     http://www.orca.med.or.jp/cgi-bin/cvsweb/jma-receipt/cobol/copy/CPORCBD009S.INC?cvsroot=local&rev=1.1
>   1.275       +1   -0    jma-receipt/cobol/copy/Makefile.in
>     http://www.orca.med.or.jp/cgi-bin/cvsweb/jma-receipt/cobol/copy/Makefile.in?cvsroot=local&r1=1.274&r2=1.275
>   1.1         -ADDED-    jma-receipt/cobol/orcabt/ORCBD009S.CBL
>     http://www.orca.med.or.jp/cgi-bin/cvsweb/jma-receipt/cobol/orcabt/ORCBD009S.CBL?cvsroot=local&rev=1.1
>   1.106       +2   -0    jma-receipt/cobol/orcabt/Makefile
>     http://www.orca.med.or.jp/cgi-bin/cvsweb/jma-receipt/cobol/orcabt/Makefile?cvsroot=local&r1=1.105&r2=1.106
> 
>