Thread: Convert COBOL to C

Hi,

I want to convert a COBOL copybook into C to call a COBOL-API through C. Is that correct what I have done?

Code:

struct TestParms {
  // Filler PIC X(8) VALUE 'HYQCMQPR'.
  char m_eyeCatcher[8];

  // Filler PIC X(4) VALUE '0100'.
  char m_version[4];

  // MQPR-QueueMgr PIC X(48) VALUE spaces. 
  char m_mqprQueueMgr[48];

  // MQPR-Queue PIC X(48) VALUE spaces. 
  char m_mqprQueue[48];

  // MQPR-ReplyQueue PIC X(48) VALUE spaces . 
  char m_mqprReplyQueue[48];

  // MQPR-Message-p POINTER VALUE NULL.
  char m_mqprMessageP[sizeof(void *)];

  // MQPR-Message-l PIC S9(8) COMP-5 VALUE 0.
  char m_mqprMessageL[sizeof(int)];

  // MQPR-Messageld PIC X(24) VALUE LOW-VALUES.
  char m_mqprMessageld[24];

  // MQPR-Correlld PIC X(24) VALUE LOW-VALUES.
  char m_mqprCorrelId[24];

  // MQPR-CommitScope PIC S9(4) COMP-5 VALUE 0.
  char m_mqprCommitScope[sizeof(int)];

  // MQPR-Format PIC S9(4) COMP-5 VALUE 0.
  char m_mqprFormat[sizeof(int)];

  // MQPR-Persistency PIC S9(4) COMP-5 VALUE 0.
  char m_mqprPersistency[sizeof(int)];

  // MQPR- Priority PIC S9(4) COMP-5 VALUE 0.
  char m_mqprPriority[sizeof(int)];

  //  MQPR- Expiry PIC S9(4) COMP-5 VALUE 0.
  char m_mqprExpiry[sizeof(int)];

  //  MQPR-TargetEntity PIC X(3) VALUE' '. 
  char m_mqprTargetEntity[3];

  // MQPR-FILLER          PIC X(80) VALUE LOW-VALUES.
  char m_reserved1[80];

};

Thanks in Advance.

> // MQPR-Message-l PIC S9(8) COMP-5 VALUE 0.
> char m_mqprMessageL[sizeof(int)];
...
> // MQPR-CommitScope PIC S9(4) COMP-5 VALUE 0.
> char m_mqprCommitScope[sizeof(int)];
Reading COBOL Layouts, Part 4: Numeric Fields
If S9(8) is 00000000 decimal digits, and S9(4) is 0000 decimal digits, then neither has anything to do with the actual size of an integer.

Sure.

How much COBOL do you know?

Originally Posted by Salem

How much COBOL do you know?

Not that much, I am a newbie in Cobol.
Or let's say,I never implemented in Cobol, now I am trying to get some basics which I need for my C Implementation.