How do I call a QUICK slave screen from COBOL and pass pa
rameters?
Kogan, Arthur
akogan@westpac.com.au
Mon, 1 Mar 1999 16:46:49 +1100
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_000_01BE63A7.23822E98
Content-Type: text/plain;
charset="iso-8859-1"
Hi Fernando,
I have always been amazed by the willingness of technical purists to spend
at times endless amounts of time to get a particular technical solution to a
given business problem simply because "it ought to work this way".
For me it has always been "lets find the simplest/quickest solution that
does the job, and lets get onto solving the next problem".
Life is too short!!!
Regards,
Arthur Kogan
Westpac Financial Services
Sydney, Australia
> -----Original Message-----
> From: Fernando Olmos [SMTP:folmos@rmit.EDU.AU]
> Sent: Monday, 1 March 1999 2:28 PM
> To: powerh-l@lists.swau.edu
> Subject: Re: RE: How do I call a QUICK slave screen from COBOL and
> pass parameters?
>
> 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.
------_=_NextPart_000_01BE63A7.23822E98
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64
eJ8+IiEFAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQSAAQBLAAAAUkU6IFJFOiBIb3cgZG8gSSBjYWxsIGEgUVVJQ0sg
c2xhdmUgc2NyZWVuIGZyb20gQ09CT0wgYW5kIHBhc3MgcGFyYW1ldGVycz8AQRgBCYABACEAAABG
M0I1RUYwNzZFQ0ZEMjExODgzRTAwMDA4MzY4MzU2NwAUBwEggAMADgAAAM8HAwABABAAMAAfAAEA
OgEBBYADAA4AAADPBwMAAQAQAC4AMQABAEoBAQ2ABAACAAAAAgACAAEDkAYAxA8AACsAAAALAAIA
AQAAAAMALgAAAAAAQAA5AMAyk+amY74BHgBwAAEAAABHAAAAUkU6IEhvdyBkbyBJIGNhbGwgYSBR
VUlDSyBzbGF2ZSBzY3JlZW4gZnJvbSBDT0JPTCBhbmQgcGFzcyBwYXJhbWV0ZXJzPwAAAgFxAAEA
AAAbAAAAAb5jnzmW4lVC3c95EdKeGQAA9rj6EQABPRvgAAIBCRABAAAAkAoAAIwKAAAlGQAATFpG
dWDZJWYDAAoAcmNwZzEyNdIyAPszNgHoIAKkA+MJAgBjaArAc2V0MB4gBxMCgwBQEFZwcnHeMhFZ
DlAD1RFlfQqACMjsIDsJbw4wNRV/CmACgNkKgXVjAFALA2MAQQtgIm4OEDAzMwumIEgYaSBGBJEA
cGRvLCcKogqECoBJIBDgdmWiIAdAd2F5BCBiCeEbHAAAwHoJgBxweSB0Jmgb8APwbGwLgGdusweQ
BCBvZh1gBZBoAwCSYwdAIHAIcXN0BCBgdG8gc3AJ8B0gYe0FQHQHcyARbB4yHNAIYO8CMB5UB3Ef
smcRIBwAHzBzCsAggGN1C2AFwB6ocz0G8HUggAIgH7Ii0GdpcxvgA6BidQCQHiMSoG/5AmBlbR/g
B3ALUB1QHIBnHwAlkBvwImkFQAhgZ9ZoIGEf0HcFsGsdYQQA0x2gHEAiLhrqRgWxIjFvJ5EQ4CFB
HCkiIRAfkWYfC4AdIB1yJpMHkHQvcfp1DeBrLOEkORDgBUAasOsHkR1yaiYwLBwAICErs+8ikgIh
H9EG8HYd8R1jHiDueAVAJhUpLEwGkCpRH6I1H9FoCREhNAAa6lJlemcLEXMa2wcQHXAIcCDcS281
EAuQGvNXLOEKsO5jGkALgABwYwcxBlIwwK5jB5Aa5AawZB4geS9Q8kElkHRyB0AHMBrqCvS/HeAP
MRjBAUAmER6hdBHk0DE2IC09Ik8FECUg6xqAAyBNHjFhIpA9IxrmDzw0PAELEzw2aS0xNMY0AUAd
4DE4MAFADNCtQMNiGkADYToMg2IRQDEaViBPbARgBCBbUzBNVFA6AhBDgkByAm0nkC5FRFUuQXxV
XRrlQfAGYAIwQldN7QIgZBxAL1AxBdAKwBDQBUcwOUfQIDI6MjhIIFBNRWdUb0JXcIRvdwSQaC1s
QB3g7R+BLgPgJzAuCYAMcEV3uHViajxhQlc08DoH8NpFTOBISdAugSAboB8BgwMgItBRVUlDSx/g
HwtgG+EE8RySA1IgQ0/4Qk9ML2MKsCXiCsAc0PMRIASQcz8+zz/aO4YTkQcTkgwBGvNZZWFoLv9N
oR1wJ8QeciiyAiAiQhrA/x2gKLBHkShQI1AdIChSL1D4QlVUHHUmAgGQNsEfcf8vUC5DG6Ac0C9Q
G6AcMAIwHx+yOgAdUC9yHIAgJ3P3AMAAIASQJx2hHXAok1TiHxzQWpIw0x/QJ0JDQUyhUABJTlRS
XiBTTmDoIChNIAApL2MlkjDwQFNFVFZBUi9jU1hIT1df8VTgRB/QecsIYBu1bh1Qa25J0CEQ/mQi
kDAxLoEw1AQAUVcbAv5UHYEmFlyjIpEggDDhIFL/HYEEYAeAWkFV8xuwTVFdbwVecyJPwE1NQU5E
CCIgVV6ATkcgV4U88C1oxSBHSVZpdAA4LVNUVU5PLeFNAFNVTFRWkgSQG/Dnau4zMRrqIDBHQGxf
boCFb6hQXpFTOSg5XwAWQl4gYABZKTtCVFf+LnJiVqEgUQaQYSNaJhbg/nQIcFhCENIA0FERKmEm
YP9jey9yaboowW2fablU4HlP83pfe0xGT25gGWBH0G3112+iGWB8MUld8EVgEH4veXBiWChAwF8A
boBf8EzcVUV7X3xvb6MiX8VrI/wsJykmfTdpsmsjfl9/Ynw4KYPOfc9+3F8AgAQiH4Ovh79+y2+l
gAQlMTXXeTqBXXhGUGAATYvfcDjrf7FowVB/9TB5OY7/eGR/i6CLv5Gfkq+Tvxs3HwBu+2IQBUBl
JUIFoCawAxAiQf8osgWgAQByYxrsIpGcTU2g3m4CEESgIFAkklQesgjxTmcdUDh2GhBQM0FQMNAv
OTQ3bfU6i2GAQAFPwFBZTElCPVREU1OiMS5USQXgLuBZUFJPRKIxoSZPwYg4NVhQAFRBU0FQEDkw
UyyktVUsJNpOa7BMd3uQYEeYEUFQw25xT8RJSS9pjSCggQOOEEFQQS4wNC4xFYsxW6RgXU+wb3B5
2z2BJ/FIB9ArsXSQUADQ3msLEU+xVOBHwDihFqIw2k6AQCOWIV/AUayBT8BLUACVYU+DIUVWlipU
+EVYVG31PSOvv7DPsd+/su8+eYsBGVAZUIsBOEfQ70FQboBBQG6AMgHAboCs8CdeGU0AazBSTn/1
TUlhQ+BBVENIKTsa5D7/Gi+5kLlFHXJUsACQLXIcMd8kwxDQCJAb4R1yZiGQPHD7JJE6IXQdUGEy
HiAdETNDu2dzNtY+C4BREQeAZAcw7x6gK/EhEC9QaUrwVOC6fP4xcqEFEMCBLFN0IAEAWkH8bnUG
0HUBWnK9EptSC4D7T7S5RTJU4E3THXItI071eSk1PjNU4MTBxnpz8WH/LDTEcy9ydAEIgbzVRvAB
kP8r8AWxwtnHNqkAwmkFoCGRv8P7L3IxYETBuUWOIWKq4X/Et8jfHSAiks0nxza5RU7/H9BQt1BT
MNIW4C0hFuHSjb80/LrWNj+5kDdfOG0+OV/9unw+PR8+LtyxQhdC30Pv/0T1wVbcwEX3Rr9Hww4g
SCD+NEhX3LFJFUm/SsXiOUvZ/04wTS9OP09PUFPcV1C/3LH13FdBYdFpAQAqsO3/3MD/G6BiAunD
mvHqAieRX2Rnz/1o3jVp5txX9IKVYvSCkGL/a+j0oHKRBABCUO/fblX0p/95P/sPgF+Ba/jSiu+V
/39i3w9Af8/8r/27goNSa0DqVDwuQ7dQTQBeMASQT0eZa1BTO14ggVA9J0UwFlQFwKSwS6ThNVAu
/FBVosSKQQJf/j//T4z//44PB675FpVvln+Xjwxf+K1/kG8PbxB/EY/uPfBZXMtyvyGQpKEGZNQ3
ItBrIUQE4fItpeBNQglhhkYvYtxX/+tAOMAlMBtEzWQh4R3hKhD/NUAmAjjBJ1DVN+55ZEBzkK5r
d1DEwckAdtlxZSBff/hos0AT/yVfJm8nBwgJLGH3cF98XFwW4t/GSltU4OBEKO8g26B5LYFQdViQ
Z1DScgDCJ2/40i//J7UpIZ6Pn50kQKjQoxCiwHcr7/jSKRBfKMAo0S0xUuRved2TbGJXIHRAvzD3
LeDnAPIAdcCBHwEuqSqA1TnmKQLedicBPTbfN++3OP4C3wDST+qATREogZB6KUfQMvSgU1AL0Bam
QWZYO5mBgDk2J78nB2XfaPAJMEzg4QpLAS5K0LZhBENRrJAzMjI2NP/kwEhAMH/cwDj/RH9Fjzlf
/e5qPUhvSX9Kj0ufS+JC6Jvn2ushacPAQAAic05G/+ZH9ADQAcAw3ePPoJvwvDLb3FdbcGofYWZQ
b+bf3Gb+VTNwTkm9UE7/UAzNwVHv/1L/5l/nZb6x2CDAgLwRvoF3vaDeILwVYs7hV8OgAS7fWUYg
6b6xV8JmomOfoCAR/8Dw17G+w1lAu+HNxVfCwPB9viJt22HPoL8xwwBORnL/uH92ICQ/ZM9l30I/
KK8pv/8qz2bvbkAtPy5PL19rTzGv/zK/M88034ImNp92b3d/Ocj/Op87rzy/Pc8/D0AfQS9vn/93
z4K/g894L4FVS++HX4hv/4l/TKpOP1VfUF5XH1gmdJT/VA+MP1Yvjq+PullPWl9bb39cf12FXi9f
P2BPYV9iaH0FdNAAn0ADAP0/UgMAAB4AQhABAAAAHwAAADxzNmRhYTQxYy4wNTBAZW1zLnJtaXQu
ZWR1LmF1PgAACwAAgAggBgAAAAAAwAAAAAAAAEYAAAAAA4UAAAAAAAADAAeACCAGAAAAAADAAAAA
AAAARgAAAAAQhQAAAAAAAAMAI4AIIAYAAAAAAMAAAAAAAABGAAAAAFKFAAB0EAAAHgAkgAggBgAA
AAAAwAAAAAAAAEYAAAAAVIUAAAEAAAAFAAAAOC4wMgAAAAADAA+ACCAGAAAAAADAAAAAAAAARgAA
AAABhQAAAAAAAAsAKYAIIAYAAAAAAMAAAAAAAABGAAAAAA6FAAAAAAAAAwAMgAggBgAAAAAAwAAA
AAAAAEYAAAAAEYUAAAAAAAADACuACCAGAAAAAADAAAAAAAAARgAAAAAYhQAAAAAAAB4AOoAIIAYA
AAAAAMAAAAAAAABGAAAAADaFAAABAAAAAQAAAAAAAAAeADuACCAGAAAAAADAAAAAAAAARgAAAAA3
hQAAAQAAAAEAAAAAAAAAHgA8gAggBgAAAAAAwAAAAAAAAEYAAAAAOIUAAAEAAAABAAAAAAAAAAMA
JgAAAAAAAwA2AAAAAAAeADFAAQAAAA8AAABLT0dBTkE0RENCNzgzOAAAAwAaQAAAAAAeADBAAQAA
AA8AAABLT0dBTkE0RENCNzgzOAAAAwAZQAAAAAADAIAQ/////wIB+T8BAAAAYgAAAAAAAADcp0DI
wEIQGrS5CAArL+GCAQAAAAYAAAAvTz1XRVNUUEFDL09VPVdCQy9DTj1SRUNJUElFTlRTL0NOPU1T
TUFJTCBBRERSRVNTRVMvQ049S09HQU5BNERDQjc4MzgAAAAeAPg/AQAAAA4AAABLb2dhbiwgQXJ0
aHVyAAAAHgA4QAEAAAAPAAAAS09HQU5BNERDQjc4MzgAAAIB+z8BAAAAYgAAAAAAAADcp0DIwEIQ
GrS5CAArL+GCAQAAAAYAAAAvTz1XRVNUUEFDL09VPVdCQy9DTj1SRUNJUElFTlRTL0NOPU1TTUFJ
TCBBRERSRVNTRVMvQ049S09HQU5BNERDQjc4MzgAAAAeAPo/AQAAAA4AAABLb2dhbiwgQXJ0aHVy
AAAAHgA5QAEAAAAPAAAAS09HQU5BNERDQjc4MzgAAEAABzDA4gIupGO+AUAACDCYLoIjp2O+AR4A
PQABAAAABQAAAFJFOiAAAAAAHgAdDgEAAABHAAAAUkU6IEhvdyBkbyBJIGNhbGwgYSBRVUlDSyBz
bGF2ZSBzY3JlZW4gZnJvbSBDT0JPTCBhbmQgcGFzcyBwYXJhbWV0ZXJzPwAACwApAAAAAAALACMA
AAAAAAMABhD/saSOAwAHEB8OAAADABAQAAAAAAMAERABAAAAHgAIEAEAAABlAAAASElGRVJOQU5E
TyxJSEFWRUFMV0FZU0JFRU5BTUFaRURCWVRIRVdJTExJTkdORVNTT0ZURUNITklDQUxQVVJJU1RT
VE9TUEVOREFUVElNRVNFTkRMRVNTQU1PVU5UU09GVElNRQAAAADzGQ==
------_=_NextPart_000_01BE63A7.23822E98--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.