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!

  • Congratulations Mike Lewis 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. kfmason

    PROBLEM WITH DECLARING VARIABLES

    jps111s, 1) A:CUSTOMER-INPUT-FILE should be inside of these " " 2) you also have other errors in your listing For Instance: 2.1) period required after STOP RUN 2.2) period required before Z200-READ-BULL-RECORD Good Luck
  2. kfmason

    DISPLAY HEXADECIMAL VALUE

    Claudeb, If you mean 'how do I display the decimal value?' you just need to define a 'normal' numerical PIC 9(??) field, when you move (A or B) into it the conversion will be done for you. If you mean 'how do I display the hexadecimal value?' (wish is what you say but I don't think what you...
  3. kfmason

    Write Error

    Cinthia, When you say 'Dont you open by going to open for execution?' it looks like you are refering to the actually running of the program and not where your problem is (ie. in your code). You need to look at (1) the 'Select' statement(s) in your Environment Division and make sure you have the...
  4. kfmason

    cobol error

    Meth, Your problem is (as it says) a non numeric in a numeric field (eg. spaces in a PIC 9); you will get this error when you try to access this field (eg. within a mathematical statement). The pc=14d call=1 seg=0 is the address of the problem and you will need a compiled listing of your...
  5. kfmason

    PIC S9(07) COMP-3

    Claudeb, I don't know what ASRA is but looks to me like you will have a problem with signs at the very least. If you only accessed X-2 and X-1 (for instance) it would probably be ok but as soon as you try to access X you will find signs in the middle of a numeric packed field. Initialize X-1...
  6. kfmason

    Initializing variable using redefines clause in COBOL

    I agree with 'Croxie'. Furthermore, why are you redefining? I can see no benefit. The 03 level (v_parameter_1) will give you alphanumeric access to your 05 level numeric(v_archive_num). Furthermore, I always retain an element of the original field in the redefinition name (eg v_parameter_1_red...
  7. kfmason

    Calling DOS functions from COBOL program

    In Micro Focus Cobol you do it as below. MF is similar to RM (I believe). So until an RM johnnie gets back to you you need to find RM's equivalent. Good Luck ------------------------------------------ Working-Storage Section. 01 ws-reply pic 99 comp-x. 01 ws-function-35 pic 99...
  8. kfmason

    Calling SubPrograms

    Now I'm not trying to be funny here but.......it would really help if and when you post a problem you actually tell us what the problem is. There's too many problems posted that only say 'my program doesn't work', 'what am I doing wrong' etc etc. If you had a live program and a user rang you and...
  9. kfmason

    Micro Focus/Merant Cobol run tool

    Please reply with the exact error message. Cheers
  10. kfmason

    Easter Day Calculation

    All, If (like me) you've always wondered how 'they' decided when easter is and have written diary apps where you've scratched your head when it came to allowing for national/bank holidays; you will find this useful. I've written it in C, assembler, sql and VB (as well as the COBOL version...
  11. kfmason

    Hi ! How to know the total numbe

    Using 'bog standard' cobol indexed files you can open up the associated idx file and find this sort of info. I'm not a mainframe johnnie and I'm unsure of your fileset but hope this is of some use. Good luck

Part and Inventory Search

Back
Top