SI
SI
discoversearch

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor.  We ask that you disable ad blocking while on Silicon Investor in the best interests of our community.  If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.
Technology Stocks : Zitel-ZITL What's Happening
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  
To: Mondoman who wrote (515)10/30/1996 9:40:00 AM
From: Warren Gates   of 18263
 
ADVANCED COBOL TECHNOLOGY 101 :

DATA DIVISION.

01 FIELD-A.
05 FIELD-PACKED-BINARY PIC S9(4) COMP.
05 FILLER PIC X.
01 FIELD-A-PACKED REDEFINES FIELD-A PIC S9(5) COMP-3.
01 FIELD-B-ZONED-DECIMAL PIC 9(4) VALUE 1996.

PROCEDURE DIVISION.

MOVE FIELD-B-ZONED-DECIMAL TO FIELD-A-PACKED.
MULTIPLY FIELD-A-PACKED BY 10.
...

FIELD-PACKED-BINARY now contains X'1996' . QUITE AN ADVANCED TECHNOLOGY ... I'M TREMBLING
Report TOU ViolationShare This Post
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  

HomeMailHotSubjectMarksPeopleMarksKeepersSettings
Terms Of UseContact UsCopyright/IP PolicyPrivacy PolicyAbout UsFAQAdvertise on SI
© 2025 Knight Sac Media.  Data provided by Twelve Data, Alpha Vantage, and CityFALCON News