Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/fit2.for
There is 1 other file named fit2.for in the archive. Click here to see a list.
	INTEGER OWNER,MEMBER,TENANT,EMPTY
*	INVOKE FS1 OF SCHEMA ORDENT.
	INCLUDE 'FS1.SUB'
	CALL SBIND('ORDENT',00001,'FS1',00035,SYSCOM)
	CALL BIND(00006,UNDEFP(1),UNDEFP(7),UNDEFP(8),IDAREA)
	CALL BIND(00010,ORDNUM,UNDEFP(26),UNDEFP(28),UNDEFP(29))
	CALL BIND(00015,UNDEFP(31),UNDEFP(33),UNDEFP(35),UNDEFP(36))
	CALL BIND(00020,UNDEFP(38),PRDESC,UNDEFP(40),UNDEFP(42),UNDEFP(43
	1),UNDEFP(45),UNDEFP(46),PINS)
	CALL BIND(00029,OSORD,UNDEFP(47),0)
	CALL BIND(00032,UNDEFP(49),SLSOFF,UNDEFP(55))
	CALL BIND(00036,UNDEFP(58),UNDEFP(60),UNDEFP(65),UNDEFP(72),UNDEF
	1P(74))
	CALL BIND(00042,UNDEFP(76),UNDEFP(78))
	CALL BIND(00001)
	CALL EBIND(0,DBNULL)
*	OPEN AREA AREA1.
	CALL OPEND( -22 ,0,0,00002)
	A=1
	TYPE 100,A
100	FORMAT(' MADE IT',F)
*	FIND FIRST RECORD OF AREA1 AREA.
	CALL FIND3( -12 ,0,00002, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
	L1=OWNER(0)
	L2=MEMBER(0)
	L3=TENANT(0)
	L5=OWNER('CUSORD-SET')
	L6=MEMBER('ORDITM-SET')
	L7=EMPTY('CUSORD-SET')
	TYPE 107,L1,L2,L3,L5,L6,L7
107	FORMAT(1H ,6I9)
*	FIND NEXT RECORD OF AREA1 AREA.
	CALL FIND3( -15 ,0,00002, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
*	FIND NEXT RECORD OF AREA1 AREA.
	CALL FIND3( -15 ,0,00002, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
101	FORMAT(1H ,6A5,2X,6A5,2X,I3)
150	CALL S1
151	CONTINUE
*	END FIT1.
	END
	SUBROUTINE S1
*	INVOKE FS1 OF SCHEMA ORDENT.
	INCLUDE 'FS1.SUB'
	CALL SBIND('ORDENT',00001,'FS1',00035,SYSCOM)
	CALL BIND(00006,UNDEFP(1),UNDEFP(7),UNDEFP(8),IDAREA)
	CALL BIND(00010,ORDNUM,UNDEFP(26),UNDEFP(28),UNDEFP(29))
	CALL BIND(00015,UNDEFP(31),UNDEFP(33),UNDEFP(35),UNDEFP(36))
	CALL BIND(00020,UNDEFP(38),PRDESC,UNDEFP(40),UNDEFP(42),UNDEFP(43
	1),UNDEFP(45),UNDEFP(46),PINS)
	CALL BIND(00029,OSORD,UNDEFP(47),0)
	CALL BIND(00032,UNDEFP(49),SLSOFF,UNDEFP(55))
	CALL BIND(00036,UNDEFP(58),UNDEFP(60),UNDEFP(65),UNDEFP(72),UNDEF
	1P(74))
	CALL BIND(00042,UNDEFP(76),UNDEFP(78))
	CALL BIND(00001)
	CALL EBIND(0,DBNULL)
*	OPEN AREA AREA2.
	CALL OPEND( -22 ,0,0,00003)
	A=1
	TYPE 100,A
100	FORMAT(' MADE IT',F)
*	FIND FIRST RECORD OF AREA2 AREA.
	CALL FIND3( -12 ,0,00003, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
*	FIND NEXT RECORD OF AREA2 AREA.
	CALL FIND3( -15 ,0,00003, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
*	FIND NEXT RECORD OF AREA2 AREA.
	CALL FIND3( -15 ,0,00003, -18 )
	TYPE 101,ARNAM,RECNAM,ERCNT
101	FORMAT(1H ,6A5,2X,6A5,2X,I3)
	CALL UNSET
200	RETURN
*	END FIT2.
	END