TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–56 069138, Update 1 to 040970 Tandem Computers Incorporated
1254 ADD 1 TO esub.
1256 IF ih-ipc-retn-code NOT = 0
1257 MOVE " PWRT" TO e-name( esub )
1258 MOVE ih-ipc-retn-code TO e-field( ESUB )
1259 ADD 1 TO esub.
1261 IF error-name = "START-SESSION"
1262 IF NOT rsp-ss-ok
1263 MOVE " SSRT" TO e-name( esub )
1264 MOVE rsp-ss-retn-code TO e-field( esub )
1265 ADD 1 TO esub
1266 IF rsp-ss-retn-code-detail NOT = 0
1267 MOVE " SSRD" TO e-name( esub )
1268 MOVE rsp-ss-retn-code-detail TO e-field( esub )
1269 ADD 1 TO esub.
1271 IF error-name = "CREATE"
1272 IF NOT rsp-cri-ok
1273 MOVE " CRI " TO e-name( esub )
1274 MOVE rsp-cri-retn-code TO e-field( esub )
1275 ADD 1 TO esub.
1277 IF error-name = "ADD ITEMS"
1278 IF NOT rsp-ar-ok
1279 MOVE " A-R " TO e-name( esub )
1280 MOVE rsp-ar-retn-code TO e-field( esub )
1281 ADD 1 TO esub.
1283 DISPLAY TEMP error-line.
1285 error-section-exit.
1286 EXIT.