Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
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