How do I call a QUICK slave screen from COBOL and pass
parameters?
Fernando Olmos
folmos@rmit.EDU.AU
Mon, 01 Mar 1999 14:28:12 +1100
Yeah. I thought of this one too, which would work, BUT been a protaganist, that I am, I want to try and be 'smarter' with this. I am trying to use CALL INTRINSIC (Mpe) and using SETVAR and SHOWVAR. Do you have any knowledge on doing this?
The problem I am getting at the moment is on how to use CALL INTRINSIC "COMMAND" USING W16-COMMAND GIVING W18-STUNO-RESULT, where W18-STUNO-RESULT is
01 W18-STUNO-RESULT PIC S9(9) BINARY.
BTW..... what if you want to return a character item?
and W16-COMMAND is
01 W16-COMMAND. FO010399
03 FILLER PIC X(14) VALUE FO010399
"SETVAR STUNO,'".
03 W16-STUNO PIC X(8).
03 FILLER PIC X(1) VALUE "'".
03 FILLER PIC X VALUE %15. FO010399
01 W16-PARM PIC S9(4) COMP VALUE 0. FO010399
01 W16-ERR PIC S9(4) COMP VALUE 0. FO010399
I cannot even compile this code.....
I get...
Information Technology Services HP3000/947
:FILE COPYLIB=TSSLIB.TIMS.YPRODLIB
:COB85XL TAS0090S,TAS0090U,$NULL
PAGE 0001 COBOL II/iX HP31500A.04.13 [85] Copyright Hewlett-Packard CO. 1987
LINE # SEQ # COL ERROR SEV TEXT
------------------------------------------------------------------------------
01010 089900 80 272 Q INTRINSIC RETURN VALUE MISMATCH.
>Hi Fernando,
>
>the easiest way to achieve the functionality you need is to use an
>intermediate file, i.e.
>
>1. write the student number to the file in COBOL
>2. call the quick screen.
>3. in quick screen read the file and retrieve the data for the student.
>4. write the count to the file and exit.
>5. back in COBOL read the file and get the count.
>
>No parameter passing required.
>
>Regards,
>
>Arthur Kogan
>Westpac Financial Services
>Sydney, Australia
>
>> -----Original Message-----
>> From: Fernando Olmos [SMTP:folmos@rmit.EDU.AU]
>> Sent: Monday, 1 March 1999 12:24 PM
>> To: powerh-l@lists.swau.edu
>> Subject: Q: How do I call a QUICK slave screen from COBOL and pass
>> parameters?
>>
>> Any ideas?
>>
>> I know I can call it using CALL INTRINSIC "COMMAND" USING W15-COMMAND
>> W15-ERR W15-PARM, where W15-.. is:
>>
>> 01 W15-COMMAND. FO010399
>> 03 FILLER PIC X(60) VALUE FO010399
>> "RUN QUICK.CURRENT.COGNOS;INFO='AUTO=TAK0095P.PUB.TIMS'".FO010399
>> 03 FILLER PIC X VALUE %15. FO010399
>> 01 W15-ERR PIC S9(4) COMP VALUE 0. FO010399
>> 01 W15-PARM PIC S9(4) COMP VALUE 0. FO010399
>>
>>
>> I am trying to run TAK0095P passing a STUDENT-NUMBER PIC X(8) and
>> receiving a count of records processed.
>>
>> Thanks in advance
>>
>>
>> --
>> ,-._|\ Fernando J. Olmos (Analyst Programer)
>> / \ Information Technology Services - A.S.B.
>> \_,--._/ Royal Melbourne Institute of Technology (Australia)
>> v ===================================================
>> VOICE: (03)9925-3615 FAX: (03)9925-1096
>> eMAIL: folmos@rmit.edu.au ICQ# 32264128
>> ==============================================================
>>
>> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
>> =
>> Subscribe: "subscribe powerh-l" in message body to
>> majordomo@lists.swau.edu
>> Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
>> powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
>> This list is closed, thus to post to the list, you must be a subscriber.
--
,-._|\ Fernando J. Olmos (Analyst Programer)
/ \ Information Technology Services - A.S.B.
\_,--._/ Royal Melbourne Institute of Technology (Australia)
v ===================================================
VOICE: (03)9925-3615 FAX: (03)9925-1096
eMAIL: folmos@rmit.edu.au ICQ# 32264128
==============================================================
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.