This is all the stuff to compile and add to xl file.
Works ok until I try to use the “PM” capability in the link statement
(necessary).
Will link ok without PM, bombs with PM in the link, also bombs at run time
because SOCCPASS needs PM.
Anyone have any ideas what I am doing wrong?
TIA,
Brian Donaldson.
FILE DBMACROP=DBMACROP.COPYLIB.WORLDCUP
FILE GETINFO =GETINFO.COPYLIB.WORLDCUP
FILE MACROS =MACROS.COPYLIB.WORLDCUP
FILE SOCCER =SOCCER.DATABASE.WORLDCUP
FILE S =GRPSTAT3.SOURCE.WORLDCUP
FILE O =GRPSTAT3.NMOBJ.WORLDCUP
FILE X =GRPSTAT3.NMPRG.WORLDCUP
FILE VMACRO =VMACRO.COPYLIB.WORLDCUP
FILE WRLDCPCS=WRLDCPCS.SOURCE.WORLDCUP
FILE WRLDCPCX=WRLDCPCX.DATA.WORLDCUP
FILE IS =INITPAGE.SUBS.WORLDCUP
FILE IO =INITPAGE.NMOBJ.WORLDCUP
FILE SP =SOCCPASS.SUBS.WORLDCUP
FILE SPO =SOCCPASS.NMOBJ.WORLDCUP
COB85XL *s,*O,$NULL
COB85XL *IS,*IO,$NULL
COB85XL CALCGDBL.SUBS.WORLDCUP,CALCGDBL.NMOBJ,$NULL
COB85XL CHKAVAIL.SUBS.WORLDCUP,CHKAVAIL.NMOBJ.WORLDCUP,$NULL
COB85XL RANDOM.SUBS.WORLDCUP,RANDOM.NMOBJ.WORLDCUP,$NULL
COB85XL RANDOM3.SUBS.WORLDCUP,RANDOM3.NMOBJ.WORLDCUP,$NULL
COB85XL RANDOM4.SUBS.WORLDCUP,RANDOM4.NMOBJ.WORLDCUP,$NULL
COB85XL SETIPFLG.SUBS.WORLDCUP,SETIPFLG.NMOBJ,$NULL
COB85XL SOCCPASS.SUBS,SOCCPASS.NMOBJ,$NULL
ECHO XL XL.PUB.!HPACCOUNT > worldcup
ECHO ADDXL CALCGDBL.NMOBJ;REPLACE >> worldcup
ECHO ADDXL CHKAVAIL.NMOBJ;REPLACE >> worldcup
ECHO ADDXL *IO;REPLACE >> worldcup
ECHO ADDXL RANDOM.NMOBJ;REPLACE >> worldcup
ECHO ADDXL RANDOM3.NMOBJ;REPLACE >> worldcup
ECHO ADDXL RANDOM4.NMOBJ;REPLACE >> worldcup
ECHO ADDXL SETIPFLG.NMOBJ;REPLACE >> worldcup
ECHO ADDXL *SPO;REPLACE >> worldcup
ECHO CLEANXL XL.PUB.!HPACCOUNT >> worldcup
ECHO EXIT >> worldcup
RUN LINKEDIT.PUB.SYS < worldcup
LINK FROM=^XLLIST.PUB.!HPACCOUNT;TO=*x;CAP=IA,BA,MR,PM,PH
PURGE *WRLDCPCX
ECHO 3 > TEMPFILE
ECHO *WRLDCPCS >> TEMPFILE
ECHO *WRLDCPCX >> TEMPFILE
ECHO >> TEMPFILE
RUN GENCAT.PUB.SYS < TEMPFILE
Brians World:GRPSTATS
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
00910 040900 80 055 W LEFT TRUNCATION MAY OCCUR.
01439 088000 80 055 W LEFT TRUNCATION MAY OCCUR.
01439 088000 80 055 W LEFT TRUNCATION MAY OCCUR.
01934 128300 80 055 W LEFT TRUNCATION MAY OCCUR.
01974 132300 80 055 W LEFT TRUNCATION MAY OCCUR.
02333 149200 80 055 W LEFT TRUNCATION MAY OCCUR.
02580 173200 80 055 W LEFT TRUNCATION MAY OCCUR.
02627 177900 80 055 W LEFT TRUNCATION MAY OCCUR.
02630 178200 80 055 W LEFT TRUNCATION MAY OCCUR.
03141 010900 80 055 W LEFT TRUNCATION MAY OCCUR.
03333 004000 80 055 W LEFT TRUNCATION MAY OCCUR.
03336 007000 80 055 W LEFT TRUNCATION MAY OCCUR.
03339 010000 80 055 W LEFT TRUNCATION MAY OCCUR.
03342 013000 80 055 W LEFT TRUNCATION MAY OCCUR.
03345 016000 80 055 W LEFT TRUNCATION MAY OCCUR.
03347 018000 80 055 W LEFT TRUNCATION MAY OCCUR.
0 ERROR(s), 0 QUESTIONABLE, 16 WARNING(s)
DATA AREA IS 756C BYTES.
CPU TIME = 0:00:02. WALL TIME = 0:00:19.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS E0 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
00761 004000 80 055 W LEFT TRUNCATION MAY OCCUR.
00764 007000 80 055 W LEFT TRUNCATION MAY OCCUR.
00767 010000 80 055 W LEFT TRUNCATION MAY OCCUR.
00770 013000 80 055 W LEFT TRUNCATION MAY OCCUR.
00773 016000 80 055 W LEFT TRUNCATION MAY OCCUR.
00775 018000 80 055 W LEFT TRUNCATION MAY OCCUR.
0 ERROR(s), 0 QUESTIONABLE, 6 WARNING(s)
DATA AREA IS 1328 BYTES.
CPU TIME = 0:00:01. WALL TIME = 0:00:04.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
00402 012200 80 055 W LEFT TRUNCATION MAY OCCUR.
00450 015100 80 055 W LEFT TRUNCATION MAY OCCUR.
00562 025600 80 055 W LEFT TRUNCATION MAY OCCUR.
00739 010900 80 055 W LEFT TRUNCATION MAY OCCUR.
0 ERROR(s), 0 QUESTIONABLE, 4 WARNING(s)
DATA AREA IS 67BC BYTES.
CPU TIME = 0:00:01. WALL TIME = 0:00:03.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 5C BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 64 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:01.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
DATA AREA IS 90 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:01.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
00929 004000 80 055 W LEFT TRUNCATION MAY OCCUR.
00932 007000 80 055 W LEFT TRUNCATION MAY OCCUR.
00935 010000 80 055 W LEFT TRUNCATION MAY OCCUR.
00938 013000 80 055 W LEFT TRUNCATION MAY OCCUR.
00941 016000 80 055 W LEFT TRUNCATION MAY OCCUR.
00943 018000 80 055 W LEFT TRUNCATION MAY OCCUR.
0 ERROR(s), 0 QUESTIONABLE, 6 WARNING(s)
DATA AREA IS 5A10 BYTES.
CPU TIME = 0:00:01. WALL TIME = 0:00:04.
END OF PROGRAM
END OF COMPILE
PAGE 0001 COBOL II/iX HP31500A.04.21 [85] Copyright Hewlett-Packard CO.
1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
00353 012600 80 055 W LEFT TRUNCATION MAY OCCUR.
0 ERROR(s), 0 QUESTIONABLE, 1 WARNING(s)
DATA AREA IS 1538 BYTES.
CPU TIME = 0:00:00. WALL TIME = 0:00:01.
END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.06.15) Copyright Hewlett-Packard Co 1986
LinkEd> XL XL.PUB.WORLDCUP
LinkEd> ADDXL CALCGDBL.NMOBJ;REPLACE
MODULE 'CALCGDBL' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL CHKAVAIL.NMOBJ;REPLACE
MODULE 'CHKAVAIL' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL *IO;REPLACE
MODULE 'INITPAGE' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL RANDOM.NMOBJ;REPLACE
MODULE 'RANDOM' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL RANDOM3.NMOBJ;REPLACE
MODULE 'RANDOM3' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL RANDOM4.NMOBJ;REPLACE
MODULE 'RANDOM4' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL SETIPFLG.NMOBJ;REPLACE
MODULE 'SETIPFLG' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> ADDXL *SPO;REPLACE
MODULE 'SOCCPASS' WAS REMOVED FROM THE DESTINATION LIBRARY.
1 OBJECT FILE HAS BEEN ADDED.
LinkEd> CLEANXL XL.PUB.WORLDCUP
LinkEd> EXIT
END OF PROGRAM
HP Link Editor/iX (HP30315A.06.15) Copyright Hewlett-Packard Co 1986
LinkEd> LINK FROM=^XLLIST.PUB.WORLDCUP;TO=*x;CAP=IA,BA,MR,PM,PH
ILLEGAL CAPABILITY SPECIFICATION (LINKERR 1143)
LINK FAILED (LINKERR 1116)
LINK FROM=^XLLIST.PUB.WORLDCUP;TO=*x;CAP=IA,BA,MR,PM,PH
Program terminated in an error state. (CIERR 976)
Brians World:
Print XLLIST:
CALCGDBL.NMOBJ
CHKAVAIL.NMOBJ
INITPAGE.NMOBJ
RANDOM.NMOBJ
RANDOM3.NMOBJ
RANDOM4.NMOBJ
SETIPFLG.NMOBJ
SOCCPASS.NMOBJ
ACCOUNT: WORLDCUP
DISC SPACE: 40048(SECTORS) PASSWORD: **
CPU TIME : 82302(SECONDS) LOC ATTR: $00000000
CONNECT TIME: 45567(MINUTES) SECURITY--READ : AC
DISC LIMIT: UNLIMITED WRITE : AC
CPU LIMIT : UNLIMITED APPEND : AC
CONNECT LIMIT: UNLIMITED LOCK : AC
MAX PRI : 150 EXECUTE : AC
GRP UFID : $05670002 $504D0786 $00155AD0 $AE022433 $01DB590B
USER UFID: $00000000 $00000000 $00000000 $00000000 $00000000
CAP: SM,AM,AL,GL,OP,ND,SF,BA,IA,PM,MR,DS,PH
GROUP: NMOBJ.WORLDCUP
DISC SPACE: 960(SECTORS) PASSWORD: **
CPU TIME : 0(SECONDS) SECURITY--READ : GU
CONNECT TIME: 0(MINUTES) WRITE : GU
DISC LIMIT: UNLIMITED APPEND : GU
CPU LIMIT : UNLIMITED LOCK : GU
CONNECT LIMIT: UNLIMITED EXECUTE : GU
PRIV VOL : NO SAVE : GU
FILE UFID: $05670003 $504D0786 $00158AD0 $AE022457 $01DB8187
MOUNT REF CNT: n/a
HOME VOL SET : MPEXL_SYSTEM_VOLUME_SET
CAP: BA,IA,PM,MR,PH
********************
GROUP: NMPRG.WORLDCUP
DISC SPACE: 3856(SECTORS) PASSWORD: **
CPU TIME : 0(SECONDS) SECURITY--READ : GU
CONNECT TIME: 0(MINUTES) WRITE : GU
DISC LIMIT: UNLIMITED APPEND : GU
CPU LIMIT : UNLIMITED LOCK : GU
CONNECT LIMIT: UNLIMITED EXECUTE : GU
PRIV VOL : NO SAVE : GU
FILE UFID: $05670004 $504D0786 $001599D0 $AE022457 $01DB81A1
MOUNT REF CNT: n/a
HOME VOL SET : MPEXL_SYSTEM_VOLUME_SET
CAP: BA,IA,PM,MR,PH
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
