
@@@@@@@@@@@@@@COBOL85pTvɂ

PD쐬

@COBOL85pTv͈ȉ̊JpłB

@@COBOL85 Pro Ver8.0

QD쐬@

@JAPICXg[fBNg̉
    INCLUDE\JAPI.COB    JAPIpRs[Cu
    LIB\JAPI.LIB        JAPIpC|[gCu
@Tv̊efBNgɃRs[ĂAefBNg
  ɂ*.cpr_uNbNĂB

RDt@C\

JAPI
    SAMPLE
        COBOL85
            JTHROWEX          Wu^I҂
                                ^L[ꗗ_CAO\֐Tv
                  JTHROWEX.cpr      vWFNgt@C
                  JTHROWEX.COB      Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JSTATUSEX           Wu擾֐TvEX
                  JSTATUSEX.cpr   vWFNgt@C
                  JSTATUSEX.COB   Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
                  CONVDATE.COB    Tu[`t@CR(R)
            
            JCONTROL          Wus(I^ꎞ~^ĊJ...)֐Tv
                  JCONTROL.cpr    vWFNgt@C
                  JCONTROL.COB    Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JLIST             hWuꗗ⍇֐Tv
                  JLIST.cpr       vWFNgt@C
                  JLIST.COB       Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JGETNO            JgWuԍ擾֐Tv
                  JGETNO.cpr      vWFNgt@C
                  JGETNO.COB      Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JSNDEVNT          CxgM֐Tv
                  JSNDEVNT.cpr    vWFNgt@C
                  JSNDEVNT.COB    Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JSNDEVNTEX          p[^tCxgM֐Tv
                  JSNDEVNTEX.cpr  vWFNgt@C
                  JSNDEVNTEX.COB  Tv\[Xt@C
                  DELSPC4.COB     Tu[`t@CP(U)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
                  LEN.COB         Tu[`t@CS(S)
                  STRCAT.COB      Tu[`t@CT(T)
            
            JRECEVNT          CxgM֐Tv
                  JRECEVNT.cpr    vWFNgt@C
                  JRECEVNT.COB    Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JREPEVNT            A[gʕ֐Tv
                  JREPEVNT.cpr    vWFNgt@C
                  JREPEVNT.COB    Tv\[Xt@C
                  DELSPACE.COB    Tu[`t@CP(P)
                  MKERRMSG.COB    Tu[`t@CQ(Q)
            
            JGETJOBQ            WuL[擾֐Tv
                  JGETJOBQ.cpr    vWFNgt@C
                    GETJOBQ.COB     Tv\[Xt@C
                    DELSPACE.COB    Tu[`t@CP(P)
                    MKERRMSG.COB    Tu[`t@CQ(Q)

@P@DELSPACE.COBFTu[`t@CP
@@̍Ō̃Xy[X"00"ݒ肷鏈s܂B

@Q@MKERRMSG.COBFTu[`t@CQ
@@JAPĨG[R[hɑΉbZ[W\鏈s܂B

@R@CONVDATE.COBFTu[`t@CR
@@Wu擾֐Ŏ擾ꂽ̊Jnԁ^IԂb
@@time_t^(1970N11000b̕b)Nbɕϊ
@@鏈s܂B

@S@LEN.COBFTu[`t@CS
@@nꂽ̌̋󔒂폜ԋp܂B

@T@STRCAT.COBFTu[`t@CT
@@A܂B

@U@DELSPC4.COBFTu[`t@CP
@@̍Ō̃Xy[X"00"ݒ肷鏈s܂B
@@iobt@1024oCgɑΉj
