Prev: EBCDIC to ASCII OPTCD=Q? (JCL)
Next: Rather Polite of Him, Wouldn't You Say?
From: Stephen K. Miyasato on 2 Oct 2006 13:42
I'm still having difficultly calling the microfocus dll which was written in
microfocus visual cobol for Windows 95.

Questions
1. 03 PC-FILE-CMD PIC 9(02).
What is the PIC 9(02)? can I use array[0..1] of char ?
2. The DLL does not seem to load when Delphi starts. Any idea on how to
debug?



I found this declaration in a file that was used to build a .NET DLL. I have
had difficulties trying to access the managed code hence I wish to try using
the this other dll that was made from object Cobol. The code below is from
the source I found in Cobol for .NET.

Below that I have the Delphi code that does not load the DLL. It give access
violations on load. I believe no runtime is required.

You can download the DLL from the link below;
http://www.mdsync.net/download/MIBSIO.zip

Thanks

Stephen K. Miyasato

******************************************************************
* *
* PIBSCOM.COP - COMMON AREA FOR PIBS SUBROUTINES. *
* *
* (C) Copyright 2005 *
* netMIBS, LLC *
* All Rights Reserved *
* *
* VERSION DATE INIT DESCRIPTION *
* ------- -------- ---- -----------------------------------------*
* V02.1 02/23/05 WHL netMIBS initial version. *
******************************************************************

01 PIBS-COMAREA.
03 PC-VERSION PIC X(06).
03 PC-VERSION-DATE PIC X(08).
03 PC-PROGRAM-NAME PIC X(32).
03 PC-ERROR-CODE PIC X(03).
03 pc-first-call-flag PIC X(01).
03 pc-mibs PIC X(01).
03 pc-init-flag pic x(01).
03 pc-filSt.
05 PC-FILE-STATUS.
07 pc-fs1 PIC X(01).
07 pc-fs2 PIC X(01).
05 pc-fsx pic x(03).
03 filler pic x(01).
03 pc-cdate.
05 pc-cen pic x(02).
05 pc-date.
07 pc-year pic x(02).
07 pc-month pic x(02).
07 pc-day pic x(02).
03 PC-START-TIME PIC X(04).
03 PC-FILE-CMD PIC 9(02).
03 PC-FILE-NAME PIC X(24).
03 PC-NEXT-ACCT-NUM PIC X(10).
03 PC-NEXT-PAT-NUM PIC X(10).
03 pc-debug PIC X(02).
03 pc-last-closed-date pic x(08).
03 query-comarea.
05 qc-name pic x(24).
05 qc-acct-number.
07 qc-acct-num pic x(10).
07 qc-acct-type pic x(02).
05 qc-pat-num pic x(10).
05 qc-claim-num pic x(04).
05 qc-curr-type pic 9(01).
05 qc-cmd pic x(01).
05 qc-sub-cmd pic x(01).
05 qc-function pic x(01).
05 qc-mode pic x(01).
05 qc-sub-function pic x(01).
03 qc-claim-num-arc pic x(01).
03 qc-claim-order pic x(01).
03 qc-claim-fmt pic x(01).
03 qc-trans-order pic x(01).
03 qc-trans-fmt pic x(01).
03 qc-claim-archive pic x(01).
03 qc-trans-archive pic x(01).
03 filler pic x(01).
03 pc-pmt-date pic x(08).
03 pc-chg-date pic x(08).
03 PV-MSG-LINE PIC X(54).
03 FUNCTION-KEY-DEFINITIONS.
05 FKEY-1 PIC X(06).
05 FKEY-2 PIC X(06).
05 FKEY-3 PIC X(06).
05 FKEY-4 PIC X(06).
05 FKEY-5 PIC X(06).
05 FKEY-6 PIC X(06).
05 FKEY-7 PIC X(06).
05 FKEY-8 PIC X(06).
05 FKEY-9 PIC X(06).
05 FKEY-10 PIC X(06).
03 mibs-dir pic x(36).
03 mibs-ws-dir pic x(36).
03 mibs-arc pic x(36).
03 hip-up-dir pic x(36).
03 hip-rem-dir pic x(36).
03 filler pic x(36).
03 PC-FILE-OPEN-FLAGS.
05 ACCT-OPEN-FLAG PIC X(01).
05 ACCT-TYPE-OPEN-FLAG PIC X(01).
05 CLAIM-OPEN-FLAG PIC X(01).
05 CODES-OPEN-FLAG PIC X(01).
05 CREDIT-OPEN-FLAG PIC X(01).
05 CUSTOMER-OPEN-FLAG PIC X(01).
05 DEBIT-OPEN-FLAG PIC X(01).
05 DEPT-OPEN-FLAG PIC X(01).
05 DX-OPEN-FLAG PIC X(01).
05 ERROR-OPEN-FLAG PIC X(01).
05 INS-COMPANY-OPEN-FLAG PIC X(01).
05 NAMES-OPEN-FLAG PIC X(01).
05 PAT-OPEN-FLAG PIC X(01).
05 PLACE-OPEN-FLAG PIC X(01).
05 PROC-OPEN-FLAG PIC X(01).
05 PROVIDER-OPEN-FLAG PIC X(01).
05 REFER-DR-OPEN-FLAG PIC X(01).
05 STMT-MSG-OPEN-FLAG PIC X(01).
05 ZIP-CODE-OPEN-FLAG PIC X(01).
05 temp1-open-flag PIC X(01).
05 CLAIM-HOLD-OPEN-FLAG PIC X(01).
05 DAY-STAT-OPEN-FLAG PIC X(01).
05 DAY-HIST-OPEN-
First  |  Prev  | 
Pages: 1 2
Prev: EBCDIC to ASCII OPTCD=Q? (JCL)
Next: Rather Polite of Him, Wouldn't You Say?