Exchange/RJE Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

241

242

243

244

245

246

247

248

249

250

Send/Receive Program Example

Example Programs

104698 Tandem Computers Incorporated D–9

Page 10 [1] $RJE.EXCHAPPL.RJEPROG 1991-06-17 11:05:47

SEND TEST

392. 000000 0 0 !***************************************************************

393. 000000 0 0

394. 000000 0 0 INT PROC send;

395. 000000 1 0

396. 000000 1 0 BEGIN

397. 000000 1 1

398. 000000 1 1 ! data declarations !

399. 000000 1 1

400. 000000 1 1 INT column := 10,

401. 000000 1 1 records := 0;

402. 000000 1 1

403. 000000 1 1 STRING .sp;

404. 000000 1 1

405. 000000 1 1 ! end of data declarations !

406. 000000 1 1

407. 000000 1 1 end^loop := 0;

408. 000006 1 1

409. 000006 1 1 ! write the start message !

410. 000006 1 1 sbuffer ':=' ["BEGIN SEND TEST"] -> @sp;

411. 000017 1 1 write^count := @sp '-' @sbuffer;

412. 000023 1 1 CALL WRITE (term^fnum, ibuffer, null);

413. 000033 1 1 CALL WRITE (term^fnum, ibuffer, write^count);

414. 000043 1 1 IF <>

415. 000043 1 1 THEN

416. 000044 1 1 BEGIN

417. 000044 1 2 CALL FILEINFO (term^fnum, error);

418. 000055 1 2 CALL DEBUG;

419. 000056 1 2 END;

420. 000056 1 1

421. 000056 1 1 ! reopen the EXCHANGE/RJE line server process named $LNSRV !

422. 000056 1 1 CALL OPEN (server^open^name, server^fnum); ! single open; wait i/o

423. 000066 1 1 IF <>

424. 000066 1 1 THEN

425. 000067 1 1 BEGIN

426. 000067 1 2 CALL FILEINFO (server^fnum, error); ! use -1 if open fails !

427. 000100 1 2 sbuffer ':=' ["CAN'T REOPEN $LNSRV -- ERROR: "] -> @sp;

428. 000111 1 2 write^count := @sp '-' @sbuffer;

429. 000115 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);

430. 000125 1 2 CALL end^it^all (ibuffer, write^count);

431. 000133 1 2 end^loop := 1;

432. 000135 1 2 RETURN end^loop;

433. 000137 1 2 END;

434. 000137 1 1

435. 000137 1 1 ! establish connection with comm line !

436. 000137 1 1 CALL SETMODE (server^fnum

437. 000137 1 1 , function^41

438. 000137 1 1 , secondary+type^2780

439. 000137 1 1 , no^acu);

440. 000146 1 1 IF <>

441. 000146 1 1 THEN

442. 000147 1 1 BEGIN

443. 000147 1 2 CALL FILEINFO (server^fnum, error);

444. 000160 1 2 sbuffer ':=' ["CONNECTION ATTEMPT FAILED--ERROR: "] ->@sp;

445. 000171 1 2 write^count := @sp '-' @sbuffer;

446. 000175 1 2 CALL NUMOUT (sbuffer[write^count-3], error, 10, 3);

447. 000205 1 2 CALL end^it^all (ibuffer, write^count, server^fnum);

448. 000213 1 2 end^loop := 1;