DDS - LF - numerisch in alpha

[Tobse77]

Guten Morgen zusammen

Habe folgendes Problemchen: Habe eine PF in der das Datumsfeld 8S definiert ist. Das Feld ist zudem folgendermaßen aufgebaut: TTMMJJJJ

Nun möchte ich aber in einem Programm auf dem Tagesdatum aufsetzten, um nicht die ganze Datei, welche sich über 3 Jahre erstreckt durchforsten zu müssen. Hierzu benötige ich in einer LF 3 Felder, (Jahr, Monat, Tag) welche ich als Key verwenden kann.

Nun die eigentlich Frage: wie schaffe ich es per DDS in der LF, aus dem 8S-Feld ein 8A-Feld machen, um danach mit SST die neuen Felder zu extrahieren, bzw. danach wieder in numerische Felder umwandeln, um entsprechend "SETLLn" zu können ??

mfG,
Tobias

[Rincewind]

Hi,

Variante A) Mit SQL die Daten selektieren, hier kannst du das Feld per Digits umwandeln und dann Substr benutzen um die Felder zu splitten.

Variante b) Das Datum in der Datei umwandeln in JJJJMMTT dann kannst du einfach SETLL machen (Dazu müssen aber alle Programme angepasst werden die drauf zugreifen.

Gruss

Rince

[Tobse77]

Vielen Dank für deine Tipps.

Hab jedoch in der Zwischenzeit herausgefunden, dass in DDS der SubSTRING auch auf numerischen Feldern funktioniert !!!

Die Lösung war wohl zu einfach, um gleich darauf zu kommen

Das Ganze sieht jetzt so aus:

PBDAT		8S 0
PJAHR			 I	 SST(PBDAT 5 4)
PMON			 I	 SST(PBDAT 3 2)
PTAG			 I	 SST(PBDAT 1 2)

Trotzdem vielen Dank !!

mfG,
Tobias