[Download-List] DOWNLOAD Version 8 Compile and Run Issues

Charles Stevenson stevenson.chas at gmail.com
Sun Jul 12 15:05:02 EDT 2015


Jeff,
Lst weekend I did the same with the uv windows version, with the same
result.
I was going to post a similar question, but intesad posted a question about
how to search the archives for answers, thinking my problem wasn't unique &
someone already solved it.  No response.  Maybe we're on our own & we can
woirk it through together.

I haven't done much troubleshooting & debugging yet,  but I so far I've
done this much:

1. SWAP

Replaced the UD SWAP syntax with UV's  CHANGE function.
EREPLACE is a synonym to CHANGE.
caution: CONVERT is different.  Don't use CONVERT in this instance.

Lines with my "CDS" initials are what I changed:


2. PCPERFORM
needs to be be fixed using using EXECUTE 'SH . . .'  or EXECUTE 'DOS . . .'
 on linux & windows, respectively.

3. DLPARSE can't handle "Q"-pointers in at least one place.  I'm thinking
maybe more.

4. Missing  PCLOSE, POPEN, PWRITE.
Calls to those compile,  but I think there are only called if you're
running under PRIMOS operating system  or INFORMATION dbms.
So I think it is safe to ignore.




Lines with my "CDS" initials are what I changed:

DLSOURCE DL:

0005: * TITLE ----- DOWNLOAD

0025: * Stamped: p21 rotmand, /usr/local/download, user #1976, 22 Nov 13,
07:48AM.0026: * Version 8.00
0027: *
0028: * Stamped: CDS C Stevenson C:\uvdb\apps\dlsource.  6 Jul 15.

1489: CONVERT.TO.XLSX:   <-- this appears to be new code
1490:       DEBUG1OR2
1491:       CRT 'INSIDE CONVERT.TO.XLSX'
1492:       END
1493:       X.COMMAND = DLMAIN.XLSX.COMMAND
1494:       READ R.VOC FROM DLMAIN.F.VOC, DLMAIN.XLSX.WORKING.DIRECTORY ELSE
1495:          DLMAIN.ERRMSG<-1> = 'Unable to read
':DLMAIN.XLSX.WORKING.DIRECTORY:' from VOC'
1496:          DLMAIN.FATAL.ERROR = TRUE
1497:          RETURN
1498:       END
1499:       X.INPUT.PATH = R.VOC<2>
1500:       X.INPUT.PATH := OP.SYS.PATH.DELIM:
DLMAIN.XLSX.WORKING.RECORD.NAME
1501:       IF INDEX(X.COMMAND,'%input',1) > 0 THEN
1502:          * SWAP '%input' WITH X.INPUT.PATH IN X.COMMAND           ; *
CDS 7/15
1503:          X.COMMAND = CHANGE( X.COMMAND,  '%input', X.INPUT.PATH ) ; *
CDS 7/15
1504:       END ELSE
1505:          X.COMMAND:= ' ':X.INPUT.PATH
1506:       END
1507:       READ R.VOC FROM DLMAIN.F.VOC, DLMAIN.XLSX.FINAL.DIRECTORY ELSE
1508:          DLMAIN.ERRMSG<-1> = 'Unable to read
':DLMAIN.XLSX.FINAL.DIRECTORY:' from VOC'
1509:          DLMAIN.FATAL.ERROR = TRUE
1510:          RETURN
1511:       END
1512:       X.OUTPUT.PATH = R.VOC<2>
1513:       X.OUTPUT.PATH := OP.SYS.PATH.DELIM:DLMAIN.XLSX.FINAL.RECORD.NAME
1514:       IF INDEX(X.COMMAND,'%output',1) > 0 THEN
1515:          * SWAP '%output' WITH X.OUTPUT.PATH IN X.COMMAND         ; *
CDS 7/15
1516:          X.COMMAND= CHANGE( X.COMMAND, '%output', X.OUTPUT.PATH ) ; *
CDS 7/15
1517:       END ELSE
1518:          X.COMMAND:= ' ':X.OUTPUT.PATH
1519:       END
1520:       IF DLMAIN.SILENT THEN
1521:          *PCPERFORM X.COMMAND CAPTURING X.OUTPUT                  ; *
CDS 7/15
1522:          EXECUTE 'DOS -C/': X.COMMAND CAPTURING X.OUTPUT          ; *
CDS 7/15
1523:       END ELSE
1524:          CRT 'Executing ':X.COMMAND
1525:          *PCPERFORM X.COMMAND                                     ; *
CDS 7/15
1526:          EXECUTE \DOS -C/\: X.COMMAND                             ; *
CDS 7/15
1527:       END
1528:       IF DLMAIN.XLSX.DELETE.WORKING.RECORD THEN
1529:          OPEN '',DLMAIN.XLSX.WORKING.DIRECTORY TO F.TEMP THEN
1530:             DELETE F.TEMP, DLMAIN.XLSX.WORKING.RECORD.NAME
1531:          END
1532:       END
1533:       RETURN


DLSOURCE DLPARSE

5445:       VOC.KEYWORD = VOC.REC<2>
5446:       BEGIN CASE
5447:          * CASE (VOC.ITEM.TYPE = 'F' OR VOC.ITEM.TYPE = 'DIR') AND
PASSED.LOOKUP.FILE.NAME  ; * CDS 7/15
5448:          CASE (VOC.ITEM.TYPE = 'F' OR VOC.ITEM.TYPE = 'Q') AND
PASSED.LOOKUP.FILE.NAME      ; * CDS 7/15
5449:             DEBUG4
5450:             CRT 'Opening ':ITEM
5451:          END
5452:          OPEN '', ITEM TO F.TEST THEN
5453:             DEBUG2
5454:             CRT 'Open was successful.'
5455:          END
5456:          GOSUB OP.SYS.FILE.TYPE

On Fri, Jul 10, 2015 at 6:19 AM, Jeff Colvin <jcolvin at mipe.com> wrote:

>   Howdy,
>
>
>
> I downloaded and installed the *download_universe_unix* software.  My
> UniVerse release (VOC RELLEVEL) states:
>
> 001: X
>
> 002: 11.1.4
>
> 003: PICK
>
> 004: PICK.FORMAT
>
> 005: 11.1.4
>
>
>
> The version of Linux is as follows:
>
>
> LSB_VERSION=base-4.0-amd64:base-4.0-noarch:core-4.0-amd64:core-4.0-noarch:graphics-4.0-amd64:graphics-4.0-noarch:printing-4.0-amd64:printing-4.0-noarch
>
> Red Hat Enterprise Linux Server release 6.6 (Santiago)
>
>
>
> When I ran the BUILDDLVOC installation paragraph it gave me the following
> errors when trying to compile the DLSOURCE DL program:
>
>
>
> Code within the internal CONVERT.TO.XLSX subroutine:
>
> 1501 SWAP '%input' WITH X.INPUT.PATH IN X.COMMAND
>
>           String Constant unexpected, Was expecting: Array Name, Variable
> name, Press any key to continue
>
> 1513 SWAP '%output' WITH X.OUTPUT.PATH IN X.COMMAND
>
>           String Constant unexpected, Was expecting: Array Name, Variable
> name, Press any key to continue
>
> 1518 PCPERFORM X.COMMAND CAPTURING X.OUTPUT
>
>           Variable Name (LOCAL) unexpected, Was expecting: Assignment
> Operator
>
> 1521 PCPERFORM X.COMMAND
>
>           Variable Name (LOCAL) unexpected, Was expecting: Assignment
> Operator
>
>
>
> I also found out that when copying the *DLSOURCE VOCLIST* to a remote
> account, the PCLOSE, POPEN, and PWRITE VOC items are missing.  I found out
> that these there DLSOURCE programs did not compile, because the IDLKEYS_INS
> and ERRD.INS.IBAS include files are missing.
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.cedarville.edu/pipermail/download-list/attachments/20150712/e541eb36/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image001.gif
Type: image/gif
Size: 530 bytes
Desc: not available
URL: <http://mail.cedarville.edu/pipermail/download-list/attachments/20150712/e541eb36/attachment.gif>


More information about the download-list mailing list