Exchange/RJE Manual

Send/Receive Program Example
Example Programs
D–10 104698 Tandem Computers Incorporated
Page 11 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47
SEND TEST
449. 000215 1 2 RETURN end^loop;
450. 000217 1 2 END;
451. 000217 1 1
452. 000217 1 1 ! set SEND parameters -- for logon message !
453. 000217 1 1 CALL SETMODE (server^fnum
454. 000217 1 1 , function^42
455. 000217 1 1 , notrans+notrunc+nocompress+nobinary
456. 000217 1 1 , null);
457. 000226 1 1 IF <>
458. 000226 1 1 THEN
459. 000227 1 1 BEGIN
460. 000227 1 2 CALL FILEINFO (server^fnum, error);
461. 000240 1 2 sbuffer ':=' ["1st SET SEND PARAMS FAILED--ERROR: "] ->@sp;
462. 000251 1 2 write^count := @sp '-' @sbuffer;
463. 000255 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
464. 000265 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
465. 000273 1 2 end^loop := 1;
466. 000275 1 2 RETURN end^loop;
467. 000277 1 2 END;
468. 000277 1 1
469. 000277 1 1 ! send logon message !
470. 000277 1 1 sbuffer ':=' ["/*SIGNON RMT6 ", 30*[" "]] ->@sp;
471. 000310 1 1 write^count := @sp '-' @sbuffer;
472. 000314 1 1 CALL WRITEREAD (server^fnum, ibuffer, write^count, null, count^read);
473. 000325 1 1 IF <>
474. 000325 1 1 THEN
475. 000326 1 1 BEGIN
476. 000326 1 2 CALL FILEINFO (server^fnum, error);
477. 000337 1 2 sbuffer ':=' ["LOGON ATTEMP FAILED--ERROR: "] ->@sp;
478. 000350 1 2 write^count := @sp '-' @sbuffer;
479. 000354 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);
480. 000364 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);
481. 000372 1 2 end^loop := 1;
482. 000374 1 2 RETURN end^loop;
483. 000376 1 2 END;
484. 000376 1 1
485. 000376 1 1 ! eof -- logon message !
486. 000376 1 1 CALL CONTROL (server^fnum, send^eof);
487. 000405 1 1 IF <>
488. 000405 1 1 THEN
489. 000406 1 1 BEGIN
490. 000406 1 2 CALL FILEINFO (server^fnum, error);
491. 000417 1 2 CALL DEBUG;
492. 000420 1 2 END;
493. 000420 1 1
494. 000420 1 1 ! set SEND parameters -- for JCL cards !
495. 000420 1 1 CALL SETMODE (server^fnum
496. 000420 1 1 , function^42
497. 000420 1 1 , notrans+notrunc+nocompress+nobinary
498. 000420 1 1 , null);
499. 000427 1 1 IF <>
500. 000427 1 1 THEN
501. 000430 1 1 BEGIN
502. 000430 1 2 CALL FILEINFO (server^fnum, error);
503. 000441 1 2 sbuffer ':=' ["2nd SET SEND PARAMS FAILED--ERROR: "] ->@sp;
504. 000452 1 2 write^count := @sp '-' @sbuffer;
505. 000456 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);