DLYJOB im CL

[loeweadolf]

Im CL kann ich DLYJOB benutzen mit Angabe von einer Anzahl Sekunden, die gewartet werden soll.

Gibt es eine kleinere Einheit als Sekunden ?
Ich möchte gerne 1/5 Sekunde angeben.

mfg. Ludger

[kuempi von stein]

Hello,

mir persönlich ist da nix bekannt.
Abgesehen davon, dass das System eh macht was es will. (Will sagen, wenn man sagt DLYJOB X kanns machmal auch ein wenig mehr sein, wie beim Fleischer)

Du könntest Dir ne eigene Schleife basteln, die so ungefähr Deine Anforderung abdeckt.....

k.

[Fuerchau]

Es gibt hierzu einen MI-Befehl, der einen Wait als kleinste Einheit von 1ms erlaubt.

Hier noch meine Quelle (mit meinem MI-Compiler oder dem API zu erstellen):

DCL SPCPTR   PWAITDECTIME PARM;                                   
DCL OL       *ENTRY (PWAITDECTIME) PARM EXT;                      
                                                                  
DCL DD       WAITDECTIME PKD(15,0) BAS(PWAITDECTIME);             
                                                                  
DCL DD       WAITSTRUCT  CHAR(16);                                
DCL DD       WAIT1       BIN(4)   DEF(WAITSTRUCT) POS(1);         
DCL DD       WAIT2       BIN(2) UNSGND DEF(WAITSTRUCT) POS(5);    
DCL DD       *           BIN(2)   DEF(WAITSTRUCT) POS(7) INIT(0); 
DCL DD       WAITOPT     CHAR(2)  DEF(WAITSTRUCT) POS(9)          
                                                  INIT(X"2000");  
DCL DD       *           CHAR(6)  DEF(WAITSTRUCT) POS(11)         
                                                  INIT((6)X"00"); 
           DCL DD       GESAMTZEIT  PKD(31,0);              
                                                            
#DEBUG                                                      
ENTRY      *   (*ENTRY) EXT;                                
           CMPNV(B)     WAITDECTIME,0/HI(ZEIT_POSITIV);     
           NEG(S)       WAITDECTIME;                        
ZEIT_POSITIV:                                               
           MULT(R)      GESAMTZEIT,WAITDECTIME,P"0.625142"; 
           DIVREM       WAIT1,GESAMTZEIT,P"65536",WAIT2;    
#NODEBUG                                                    
           BRK          ".WAITTIME";                        
           WAITTIME     WAITSTRUCT;                                    
#DEBUG                                                                 
           RTX          *;                                             
                                                                       
           DCL EXCM     MCH1202 EXCID(H'0C02',H'0C0A') BP(FEHLER) IMD  
                                               CV(X"00000000");        
                                                                       
FEHLER:                                                                
           CPYNV        WAITDECTIME,P"100000";                         
           B            ZEIT_POSITIV;                                  
                                                                       
           PEND;

[loeweadolf]

@ kuempi
Mit der Schleife (Zähler laufen lassen) möchte ich nicht arbeiten. Die Systeme werden immer schneller und um dieselbe Wartezeit zu erreichen, müsste der Zähler immer höher geschraubt werden.

@baldur
ich habe mich noch nicht mit MI-Compiler etc. beschäftigt. Vielleicht mal später, wenn ich mehr Zeit habe.

Vielen Dank für die Antworten
Ludger

[hebichel]

Viel einfacher ist es doch die sleep() funktion in einen rpg-program zu benutzen.

[loeweadolf]

Viel einfacher ist es doch die sleep() funktion in einen rpg-program zu benutzen.

Wie geht das ?

mfg.

[B.Hauser]

Viel einfacher ist es doch die sleep() funktion in einen rpg-program zu benutzen.

Korrigiere mich, sollte ich falsch liegen aber ...

soweit ich weiß, kann man bei sleep() auch nur Sekunden und keine kleinere Zeiteinheit angeben!

Birgitta

[Fuerchau]

sleep() auf der AS/400 funktioniert tatsächlich anders.
Diese Funktion ist auf jedem System anders implementiert und hängt häufig von TICKS-Parameter ab.
Auf der AS/400 ist das leider 1 Sekunde, unter Windows 1/1000-Sekunde, unter Unix/Linux (eben je nach Implementation) auch schom mal 1/60-Sekunde.

Doch hier nun für alle RPG-ILE-Freaks:

hactgrp(*caller) dftactgrp(*no) bnddir('QC2LE')                   
d WaitTime        pr                  extproc('waittime')         
d  pMI_Time                      8                                
d  pMI_Options                   5U 0 value                       
                                                                  
d WaitInterval    ds             8                                
d   WaitPart1                   10U 0                             
d   WaitPart2                   10U 0                             
                                                                  
d WAIT_NORMAL     c                   const(0)                    
d WAIT_MOD_AS_ENTER...                                            
d                 c                   const(32768)                
d WAIT_MOD_AS_LEAVE...                                            
d                 c                   const(16384)                
d WAIT_MPL_SET    c                   const(8192)                 
d WAIT_SIGNALS    c                   const(4096)                 
                                                                  
d WaitOptions     s              5U 0 inz(WAIT_NORMAL)            
                                                                  
d WaitFactor      s             15p 5                                       
d WaitMSeconds    s             21p 0                                       
                                                                            
c     *entry        plist                                                   
c                   parm                    WaitFactor                      
c                                                                           
c                   eval      WaitMSeconds = WaitFactor * 1000000           
c                   if        WaitMSeconds = *zero                          
c                   return                                                  
c                   endif                                                   
c                                                                           
c                   eval      WaitPart1 = %div(WaitMSeconds:1048576)        
c                   eval      WaitPart2 = %rem(WaitMSeconds:1048576) * 4096 
c                                                                           
c                   callp     WaitTime(WaitInterval:WaitOptions)            
c                   return

Das Aufsplitten des Intervals liegt in der internen Darstellung eines Zeitwertes in Microsekunden (1/1000000) in den Bits 1-56 (57-64 = *4096) müssen 0 sein.

[KM]

Hallo,

mit usleep geht's etwas einfacher. Funktioniert genauso wie sleep, nur dass man die Delay-Zeit in Mikrosekunden angibt. Nachfolgend ein Beispiel für fast 1 Sekunde:

D uSleep PR 10I 0 ExtProc('usleep')
D 10U 0 Value
*
C CallP uSleep(999999)

Gruß,
KM

[hebichel]

Ok, sleep() oder usleep() abhaengig davon wie genau man es haben moechte. Es funktioniert.

Sleep well

Gruss

Helge Bichel

[loeweadolf]

Ich habe das mit dem USLEEP ausprobiert, das klappt auch gut.

Mir ist nicht ganz klar, wie die Zusammenhänge sind.
Wird die Funktion vom Betriebssystem zur Verfügung gestellt ?

Das Programm muss dann als Modul erstellt werden (Auswahl 15).
Beim Binden braucht USLEEP dann nicht angegeben zu werden ?!

mit WRKOBJ kann ich auch kein USLEEP finden ?

Was steckt eigentlich dahinter ?

mfg. Ludger