*>start {iscobol}accept-http set request-method to comm-area:>getMethod() if request-method = "POST" comm-area:>acceptEx(request-varin) else comm-area:>accept(PAR-invar) end-if *>end {iscobol}accept-http |
*>start {iscobol}accept-http set request-method to comm-area:>getMethod() if request-method = "POST" comm-area:>acceptEx(request-varin) else comm-area:>accept(PAR-invar) end-if *>end {iscobol}accept-http < < your code here > > *>start {iscobol}http-to-linkage move PAR-in to intPAR;; |