Új hozzászólás Aktív témák

• #1989 oli83 tag

  Új Válasz 2011-05-03 12:15:06 #1989

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oli83

  tag

  Sziasztok!

  Szeretnék Any-s módszerrel stringeket másolgatni.
  Korábban ezzel a módszerrel már mindenfélét másoltam, és teljesen korrektül működött. Most azonban szeretném String másolásához is kipróbálni ezt. Azonban valami gatya, van nem igazán történik meg, amit szeretnék ezért becsatolom a progi részletet.
  50karakterből álló Stringet szeretnék, szintén ugyanilyen hosszú Stringbe másolni.

  LAR1 P##Start
  L B#16#10
  T LB [AR1,P#0.0]
  L B#16#13
  T LB [AR1,P#1.0]
  L 52 // <=========== kérdéses hossz
  T LW [AR1,P#2.0]
  L DINO
  T LW [AR1,P#4.0]
  L #PG_Nr
  L 52
  *I
  SLD 3
  L P##PG
  +D
  L DW#16#85000000
  OD
  T LD [AR1,P#6.0]

  LAR1 P##Ziel
  L B#16#10
  T LB [AR1,P#0.0]
  L B#16#13
  T LB [AR1,P#1.0]
  L 52 // <=========== kérdéses hossz
  T LW [AR1,P#2.0]
  L DINO
  T LW [AR1,P#4.0]
  L P##Aktuelle
  L DW#16#85000000
  OD
  T LD [AR1,P#6.0]

  CALL "BLKMOV"
  SRCBLK :=#Start
  RET_VAL:=#Ret
  DSTBLK :=#Ziel

  Továbbá szeretném megkérdezni még, hogy nincs e véletlenül valami jó kis módszeretek arra, hogyan lehetne egybe Stringet monitorozni? Ha DB-t/iDB-t nyitok, akkor nem akarja, és VAT-táblába karakterenként nézve elég sok mindent kellene monitorozni...

  oli83

Új hozzászólás Aktív témák