Recent content by baruch

Can you give an example of a record in masterfile, And its multiply records in the transfer file?

Hex is an abbreviation to the word HexaDecimal. Pertaining to a numbering system which uses 16 as the base (as opposed to 10. BTW, the word in English HEX is to perform magic...

Delta, you assuming that the data is justified right, What if spaces ,if exist, is in the right side,And what if there is more then 4 characters?. I don't sure that input file with 'X' format like 'F4C3" will be converted to its binary value.

I wrote a routine (20 years ago) that accomplished that task. It is written in RM/COBOL, COMP-4 is a binary formant in this compiler (COMP-X for Micro Focus). The characters must be cheeked to be in range 0-9 or A-F(upper case), max input 18 characters. I have also the versa routine dec2hex.cbl...

I have a variabl field, and want to select a range of dates from 2 months before cureent date , until current date.

When you want to see just errors list, and without numbring the copy parts, the old 6 source line number, is very use full. I have a program to number/renumber(reseq). RSQ your-program or RSQ your-program.cbl or RSQ (for prompt) In order to prevent writing non COBOL file, the program will...

thread52-1108457 I found a ZOMBIE for a user called "sofri". I could not find this user, by the command "who", but with ps -ef | grep sofri, I found a proccess belong to "sofri" with too much STIME and in TTY column just "-". sofri 29012 29978 0 Oct 02 - 0:00 /usr/bin/sh...

I wrote a routine that output any formatted number, and adjust it to left, plus output the length. 01 N PIC 9(4) VALUE 0123. 01 Z PIC Z(9). ***** CALL-NUM2LEFT ***** 01 INP-NUM PIC X(25). 01 OUT-NUM PIC X(25). 01 OUT-NUM-LENGTH PIC 9(4). ***********************************...

In the header of the index or relative file, there is information about the file like key descriptions, & counts of alive records & deleted records. If you read the file as binary file, position 47-54 contain the number of records in the file (format: pic 9(12) comp-4).

I am using for more then a year a software, that can sending or view reports files, even from Dos prpomt window From the application, you copy the spool file to some defined file, then a TSR program, capture the file. and redirect it to direct print or open a dialog box. lOOK...

Here some lines from a .bat file One of zip file, include 3 files. ============ rem unzip files from unix host pkunzip.exe -o c-tabl.zip pkunzip.exe -o c-tach.zip pkunzip.exe -o c-mech.zip .....

yes but for small array, is the simple, just one corection, the perform should run to VECTOR-LENGTH -1.

i have s simple routine, for sorting table, that will work in any cobol version. 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SORTVECT. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 I PIC 9(4)...

I use old special routine that will work at any Cobol system, (even old). 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. NUMSPL. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 I PIC S9(5) COMP-3 VALUE 0. 000007 01 J PIC...

If that application need such huge capacity, and need to keep on-line old period recoreds, for my opinion, maybe you will reconsider, that the best cost/performance is to upgrate your system, that will handle such file, or to reduce the period you are keeping online. Other sugetiones, if your...