Getting Started with TRANSACT (32247-90007)

144 Chapter8
Special Topics
Subprograms
Figure 8-23. Adding a COBOL Procedure to an SL
:cobol ex72a
PAGE 0001 HP32213C.02.12 (C) HEWLETT-PACKARD CO. 1983
DATA AREA IS %000172 WORDS.
CPU TIME = 0:00:01. WALL TIME = 0:00:03.
END COBOL/3000 COMPILATION. NO ERRORS. NO WARNINGS.
END OF COMPILE
:segmenter
HP32050A.01.09 SEGMENTER/3000 (C) HEWLETT-PACKARD CO 1983
-buildsl sl,1000,100
-usl $oldpass
-listusl
USL FILE $OLDPASS.HOWTO.MILLER
EX88A'
EX88A' 230 P A C N R
EX88A
EX88A 525 P A C N R
EX88A'S CP A C R
FILE SIZE 377600( 1777. 0)
DIR. USED 311( 1.111) INFO USED 1027( 4. 27)
DIR. GARB. 0( 0. 0) INFO GARB. 0( 0. 0)
DIR. AVAIL. 37267( 175. 67) INFO AVAIL. 336751( 1573.151)
-addsl ex72a'
-addsl ex72a
-exit
END OF PROGRAM
:run transact.pub.sys
TRANSACT/3000 HP32247A.01.09 - (C) Hewlett-Packard Co. 1983
SYSTEM NAME> ex72
PASSWORD FOR ORDERS>
ORDER-TABLE:
860600
850900 1200
END OF PROGRAM