PDA

View Full Version : Problem in autocode SQL in generated rpg-code


ThierryC
05-11-2010, 07:16 AM
(Tested in valence 2.1.20100409.0)
There is a problem when splitting the following sql-statement into lines valid for RPG.
The code exceeds into the comment area.. (see the '+' in red) and results in code that receives errors when compiling



This is the code entered in the html-autocode xface
SELECT ' ' concat Person.CPRSN, Person.SLIO, Person.DLIO, Person.HLIO,
Case when CWTREG.CORG = 'PC010030'
then 'INGANG ARBEIDERS'
when CWTREG.CORG = 'PC010040'
then 'INGANG BEDIENDEN'
when CWTREG.CORG = 'PC010050'
then 'MAGAZIJN TACK'
else '**???***'
End
FROM ................


The generated RPG, shows the same statement that buts exceed into the comment-area


stmt='SELECT '+SQ+' '+SQ+' CONCAT PERSON.CPRSN, PERSON.'+
'SLIO, PERSON.DLIO, PERSON.HLIO, CASE WHEN CWTREG.COR'+
'G = '+SQ+'PC010030'+SQ+' THEN '+SQ+'INGANG ARBEIDERS'+SQ+
' WHEN CWTREG.CORG = '+SQ+'PC010040'+SQ+' THEN '+SQ+'INGANG BEDIENDEN'+SQ+
' WHEN CWTREG.CORG = '+SQ+'PC010050'+SQ+' THEN '+SQ+'MAGAZIJN TACK'+SQ+
' ELSE '+SQ+'**???***'+SQ+' END FROM CWV3DTALIB/CWPRSN '+
'PERSON LEFT OUTER JOIN CWV3DTALIB/CWTREG CWTREG ON P'+
'ERSON.DLIO = CWTREG.DREG AND PERSON.HLIO = CWTREG.TR'+
'EG AND PERSON.CPRSN =CWTREG.CPRSN WHERE PERSON.SLIO '+
'= '+SQ+'I'+SQ+' AND ((PERSON.DLIO = CURRENT DATE) OR ('+
'PERSON.DLIO = CURRENT DATE - 1 DAY AND PERSON.HLIO >'+
' '+SQ+'12.00.00'+SQ+')) UNION SELECT '+SQ+'>> AANTAL PERSONEN <<'+SQ+