SDISC Assembler Call - NetEx

120 FORMAT (I5)CC Send request to remote program and wait for response.C Exit if response is not received within 30 seconds.CNXDATA(1)=0NXDATA(2)=IRECCALL SWRITW (FNRB,NXDATA,2,0)CALL SREADW (FNRB,NXDATA,256,so)CC Confirm that a data indication was returned and that theC NETEX read was OK; otherwise exit.CIF (FNRB(1).NE.0) GOTO 800IF (FNRB(2).NE.3) GOTO 800IF CNXDATA(l).EQ.0) GOTO 240WRITE (6,220)220 FORMAT (` NETEX read error.')GOTO 100CC Display a portion of the returned informationC to verify read.C240 WRITE (5,360) (NXDATA(I+2) ,I=1,24)300 FORMAT (3(8(1X,I10)/))GOTO 100CC End of run or abnormal result from NETEX.C Terminate the connection.C800 CALL SDISCW (FNRB,NXDATA,e,o)900 STOPENDFigure 12. FORTRAN ExampleMAN-REF-H307IP-04 FORTRAN Interface Page 63