ca.portal.admin

RHDCMT00

Discussion created by ca.portal.admin on Jan 6, 2009
Latest reply on Jan 6, 2009 by ca.portal.admin
Can RHDCMT00 be called from COBOL, as well as from assember? If yes,
does anyone have an COBOL example that they would be willing to share?

Kay Rozeboom
State of Iowa
Information Technology Enterprise
Department of Administrative Services
Telephone: 515.281.6139 Fax: 515.281.6137
Email: Kay.Rozeboom@Iowa.Gov
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: RHDCMT00
"Not a problem:

In working storage -
*
01 RHDCMT00-INREC.
03 DCMT-INLEN pic S9(4) comp value 80.
03 DCMT-COMMAND pic X(100) value SPACES.
*
01 RHDCMT00-OUTREC-1.
03 DCMT-OUTLEN-1 pic S9(8) comp value 505.
03 DCMT-RETURN-CODE-1 pic S9(4) comp value 0.
03 DCMT-OUTPUT-CODE-1 pic S9(4) comp value 0.
03 DCMT-OUTPUT-PASSED-1 pic S9(8) comp value 0.
03 DCMT-OUTPUT-USED-1 pic S9(8) comp value 0.
03 DCMT-RESULT1 occurs 5 times.
05 DCMT-101-1 pic X(101).
*
In procedure division -


move G62-LTERM (G62-INDEX) to TRASH-TERM
move SPACES to DCMT-COMMAND
string 'v AC TA TE TE ' delimited by size
TRASH-TERM delimited by size
into DCMT-COMMAND
TRANSFER CONTROL 'RHDCMT00' RETURN
USING RHDCMT00-INREC RHDCMT00-OUTREC-1;

BTW - the command is VARY ACTIVE TASK TERMINATE TERMINAL xxxyyyzz - note
in working storage we allow for 5 lines of output at 101 characters
each.

HTH - cheers - Gary


Gary Cherlet
Justice Technology Services
Department of Justice, SA Government
Telephone +61 (0)8 8226 5199
Facsimile +61 (0)8 8226 5311
Mobile +61 (0)41 333 1613
MailTo:cherlet.gary@saugov.sa.gov.au

This e-mail message and any attachments are qualified as follows:
Addressing: If you have received this e-mail in error, please advise by
reply e-mail to the sender. Please also destroy the original
transmission and its contents. Confidentiality: This e-mail may contain
confidential information which also may be legally privileged. Only the
intended recipient(s) may access, use, distribute or copy this e-mail.
Individual Views: Unless otherwise indicated, the views expressed are
those of the sender, not Justice Technology Services. Computer Viruses:
It is the recipient's responsibility to check the e-mail and any
attached files for viruses.

Outcomes