your wish
no
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.
WS-DAYS-OF-WEEK W 10 A OCCURS 99999 refer: http://code.xmlgadgets.com/2010/09/20/occurs-clause-in-easytrieve/
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
your wish
no
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.
WS-DAYS-OF-WEEK W 10 A OCCURS 99999 refer: http://code.xmlgadgets.com/2010/09/20/occurs-clause-in-easytrieve/
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
An answer can be found here: http://www.caliberdt.com/tips/Nov2005.htm
If you have a JOB statement, you can have a GO TO JOB statement. That will cause the next record to be read.
IF WS-AGE NUMERIC DISPLAY "NUMERIC" ELSE DISPLAY "NOT NUMERIC' END-IF
In Easytrieve, you initialize an output record by defining the record structure in the DATA section and then using the WRITE statement to create a new record. You can set values for the fields of the record prior to the WRITE statement. For example, you might use the MOVE statement to assign values to specific fields before writing the output. Finally, the WRITE statement is executed to output the initialized record to the specified file or report.
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.
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
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