MVSFORUMS.com

rnanavaty · Beginner Joined: 12 Apr 2006 Posts: 29 Topics: 20

please xplain these lines in terms of COBOL. Here, CODE is of hex length 2, PACKWORK is a DOUBLEWORD, NUMBER IS character of length 8
and OUT is character of length 3.

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

What's to explain? Assembler op codes....Look at the Poop,
Subtract register, insert character under mask,convert to decimal,unpack, move and or immediate....

rnanavaty · Beginner Joined: 12 Apr 2006 Posts: 29 Topics: 20

i need the equivalent CODE in COBOL. What these lines of codes are actually meant for ??

Nic Clouston · Posted: Thu May 17, 2007 5:42 am Post subject:

well - look at

rnanavaty · Beginner Joined: 12 Apr 2006 Posts: 29 Topics: 20

Subtracting registers from itself means that we are clearing the previously stored contents of registers so that further operations can be done thru that particular register.

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

Almost every COBOL verb generates multiple Assembler opcodes, you can't convert on a one for one basis. You have to look at what a group of Assembler instructions are doing and convert that to the equivalent COBOL verbs.

dbzTHEdinosauer · Posted: Thu May 17, 2007 6:24 am Post subject:

rnanavaty,

CODE contains some binary value which is converted to display after the ICM (insert character under mask) does some bit manipulation. Need to know what CODE contains before the COBOL code is ok. an assembler guru might recognize it immediately and understand its use.

e.g. the OI is used to force the last character to be a number instead of a letter after the unpack and is easily recognizable as being part of an unpack routine.

Because of the instructions used, the data type and length of all fields are known. key to solving this is what is in CODE?

77 CODE pic s9(2) binary. <<<<<as shown by CICS_Guy
77 OUT pic 9(3) display.<<<<< use 77 levels and unsigned for OUT.

move code to out.
_________________
Dick Brenholtz
American living in Varel, Germany

DaveyC · Posted: Fri May 18, 2007 5:15 am Post subject:

It takes the low order byte in code, translates it to decimal digits and puts it into
the output buffer OUT (right justified).

Coding it in COBOL should be a snack.
_________________
Dave Crayford

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

dbzTHEdinosauer · Posted: Fri May 18, 2007 8:32 am Post subject:

dumb question on my part. why is OUT (in COBOL) not signed?
_________________
Dick Brenholtz
American living in Varel, Germany

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

"OI OUT+2,X'F0' " is what COBOL does when the numeric display field has no sign...... 8)

dbzTHEdinosauer · Posted: Fri May 18, 2007 10:06 am Post subject:

thanks,

and enjoy your holiday.
_________________
Dick Brenholtz
American living in Varel, Germany