0
Want this question answered?
Be notified when an answer is posted
Add your answer:
Earn +20 pts
How do you declare an array in easytrieve?
your wish
Does Easytrieve have a version of the COBOL uppercase function?
no
How to declare an array in easytrieve that occurs 99999 times?
WS-DAYS-OF-WEEK W 10 A OCCURS 99999 refer: http://code.xmlgadgets.com/2010/09/20/occurs-clause-in-easytrieve/
How do you convert uppper case character to lower case in easytrieve?
There are a couple of different ways to convert upper case characters to lower case in easytrieve. One is to use the INSPECT/CONVERTING command.
How old is the Easytrieve programming language?
I conceived the program in 1966 and worked on it as a spare time project. We contracted with them to market our program and they did extremely well. Sales increased exponentially and in December 1979, Pansophic purchased Easytrieve along with a 5-year maintenance agreement. A patent application for Easytrieve was filed in 1971 and was granted 10 years later6
How do you declare an array in easytrieve?
your wish
Does Easytrieve have a version of the COBOL uppercase function?
no
How to declare an array in easytrieve that occurs 99999 times?
WS-DAYS-OF-WEEK W 10 A OCCURS 99999 refer: http://code.xmlgadgets.com/2010/09/20/occurs-clause-in-easytrieve/
How do you convert uppper case character to lower case in easytrieve?
There are a couple of different ways to convert upper case characters to lower case in easytrieve. One is to use the INSPECT/CONVERTING command.
How old is the Easytrieve programming language?
I conceived the program in 1966 and worked on it as a spare time project. We contracted with them to market our program and they did extremely well. Sales increased exponentially and in December 1979, Pansophic purchased Easytrieve along with a 5-year maintenance agreement. A patent application for Easytrieve was filed in 1971 and was granted 10 years later6
How do you eliminate duplicates in easytrieve?
An answer can be found here: http://www.caliberdt.com/tips/Nov2005.htm
How do you eliminate records with easytrieve?
If you have a JOB statement, you can have a GO TO JOB statement. That will cause the next record to be read.
How to check whether a character is numeric in an alphanumeric field in easytrieve.?
IF WS-AGE NUMERIC DISPLAY "NUMERIC" ELSE DISPLAY "NOT NUMERIC' END-IF
How do you convert a CHAR to Numeric in easytrieve?
You need to redefine the char field either in W/S or where it is defined in the input file. If you redefine a char field to numeric you should do a numeric test on the field before using it as numeric, otherwise your may abend with a S0C7. Yea, that's the hard way to do it above... This is one of the most common Easytrieve questions I encounter in the field. There is a macro that is shipped from CA called ALHPACON. You send it an alpha field and it returns a numeric. %ALHPACON ALPHA-FIELD NUMERIC-FIELD Ask your systems programmer to look for the shipped macros if it is not in your maclib.
Can we extract the records which is not having duplicate in file a to file b in easytrieve?
If duplicate mydata recordtype = 'duplicate' print myreport end-if *must use "not duplicate" instead of "unique" if not duplicate mydata recordtype = 'not duplicate' print myreport end-if
Example of sort program in easytrieve?
You can sort the output using the keyword 'SEQUENCE'. PRINT PAY-RPT REPORT PAY-RPT LINESIZE 80 SEQUENCE DEPT CONTROL DEPT SUM GROSS TITLE 01 'PERSONNEL REPORT EXAMPLE-1' HEADING NAME ('EMPLOYEE' 'NAME') LINE DEPT NAME EMP# GROSS NET-PAY DEDUCTIONS
How do you create matching on multiple keys in Easytrieve?
Define the keys in both input files: FILE INFILE1 AKEY1 1 4 A AKEY2 5 9 A AKEY3 14 9 A AKEY4 31 1 A AKEY5 23 8 A FILE INFILE2 BKEY1 159 4 BKEY2 1 9 BKEY3 10 9 BKEY4 19 1 BKEY5 151 8 ... JOB INPUT (INFILE1 KEY (AKEY1 AKEY2 AKEY3 AKEY4 AKEY5) + INFILE2 KEY (BKEY1 BKEY2 BKEY3 BKEY4 BKEY5))+ START BEGINNING FINISH ENDING * *** KEY EXISTS IN BOTH FILES * IF MATCHED MTCH-CNT = MTCH-CNT + 1 .....
