Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. baruch

    sequential file update

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

    How do I convert hex into numeric

    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...
  3. baruch

    How do I convert hex into numeric

    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.
  4. baruch

    How do I convert hex into numeric

    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...
  5. baruch

    AS400 Query, Subtract 24 hours

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

    Cobol line number

    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...
  7. baruch

    Please have you a script to find zombie processes

    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...
  8. baruch

    string together a list

    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). ***********************************...
  9. baruch

    Retrieving the number of records

    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).
  10. baruch

    Medicare Pricer Printing

    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...
  11. baruch

    How to unzip a concatenated zipped file using PKUNZIP utility in MVS?

    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 .....
  12. baruch

    Sorting an arrary or table

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

    Sorting an arrary or table

    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)...
  14. baruch

    Numeric fields in COBOL

    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...
  15. baruch

    Thoughts on splitting a huge file to smaller ones.

    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...
  16. baruch

    Compiler output formatter

    There is a software that its main task to handle printing tasks, including from dos command line, or from programs. It can also, to display/zoom pages by PgUp/Dn, every page that has page eject. www.printfil.com Baruch
  17. baruch

    Difficult recognizable tricks in COBOL

    Hi A simple trick in 2000YK was like, "that is doing something else then you think at first sight". 000000 01 in-year pic 9(2). 000000 subtract 1 from in-year. source was fixed to: 000000** subtract 1 from in-year. 000000 add 99 to in-year. Baruch
  18. baruch

    Reading Line Sequential File Backwards

    Hi I am also don't think that relative files is good idea to keep data in core main files. But for temporary/working or from external system, a file that is a line seq. & relative in the same time, so for example , you can read the record back, can be useful. Baruch
  19. baruch

    File Status 22: which key?

    Hi 1. open file i-o. (if output, open f output, close f, open i-o f) 2. read main key ---> invlid msg 3. read first-alt key ----> invalid msg 4... rean n-alt key..s -----> invalid msg 5. write f-rec ----> invalid "abnormal msg". From the first read until writing the record, the record is locked...
  20. baruch

    Reading Line Sequential File Backwards

    Hi all As that said befor , in Micro Focus, any fixed line seq. file, can be tratead as a fixed ralativ file. If you open output relative file & see the dump, You can see that the recors end with 0D 0A, like a regular line seq. file. That is a nice idea that must be adopted to ansi cobol...

Part and Inventory Search

Back
Top