EasyManua.ls Logo

IBM ISERIES SC41-5210-04

IBM ISERIES SC41-5210-04
294 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
selection on specific year, month, and day values. The marked (*) lines are necessary and a sample report
follows. If you require rounding for fields in the report (instead of truncation), you can add to each of the
intermediate expressions a minus one half, as follows: MM = (MMDDYY/10000)-0.5.
Example 1
5728QU1 R03 M00 900824 IBM OS/400 Query 10/04/90 14:17:45 Page 1
Query.................YYMMDD02
Library...............CRP
Query text ..............MMDDYY to YYMMDD
Collating sequence ..........Hexadecimal
Processing options
* Use rounding ............No
Ignore decimal data errors .....No (default)
Selected files
ID File Library Member Record Format
T01 MMDDYY QTEMP MMDDYY MMDDYY
Result fields
Name Expression Column Heading Len Dec
* MM (mmddyy/10000) 2 0
* DD (mmddyy/100 - (mm * 100)) 2 0
* YY (mmddyy - (mm*10000 + dd*100)) 2 0
* YYMMDD (yy*10000)+(mm*100)+dd 6 0
***** END OF QUERY PRINT *****
MM DD YY YYMMDD MMDDYY
08 31 90 900831 083190
*** END OF REPORT ***
Example 2: Working with numeric dates in Query for iSeries: This example shows the reverse in
formatting converting a numeric YYMMDD to MMDDYY. The marked (*) lines are necessary and a
sample report follows.
Example 2
Query.................YYMMDD01
Library...............CRP
Query text ..............YYMMDD to MMDDYY
Collating sequence ..........EBCDIC
Processing options
* Use rounding ............No
Ignore decimal data errors .....No (default)
Special conditions
*** All records selected by default ***
Selected files
ID File Library Member Record Format
T01 YYMMDD QGPL JUNK YYMMDD
Result fields
Name Expression Column Heading Len Dec
* YY (yymmdd/10000) 2 0
* MM (yymmdd/100 - (yy * 100)) 2 0
* DD (yymmdd - (yy*10000 + mm*100)) 2 0
* MMDDYY (mm*10000)+(dd*100)+yy 6 0
***** END OF QUERY PRINT *****
MM DD YY MMDDYY YYMMDD
08 31 90 083190 900831
*** END OF REPORT ***
72 Query for iSeries Use V5R2

Table of Contents

Related product manuals