Debug 132x27 mode
Normally STRDBG starts in 80x24 mode. You can change this mode to 132x27 mode with the following environment variable: AddEnvVar EnvVar('ILE_DEBUGGER_1') + Value('ALLOW_WIDE_SCREEN') + Level(*Job) Replace(*Yes) To go back to 80x24 mode, you use: RmvEnvVar EnvVar('ILE_DEBUGGER_1') Level(*Job) Create two CLLE-programs, eg. DBGWIDE and ENDWIDE. Add an extra statement MonMsg CPFA981 to the ENDWIDE - to prevent at dump, if DBGWIDE has not been initiated. Wrap these two CLLE's into two commands with the same names, place them in QGPL and your *On/*Off the two debug-modes. The information originated from Karl Hanson of IBM, Rochester who works/worked on the debuggers for IBM. DLYJOB inside RPG IVTo delay an internal loop inside a RPG program, or to delay a call to another program, use 'sleep' or 'usleep' H BndDir('QC2LE') D Sleep Pr 10I 0 ExtProc('sleep') D Seconds 10U 0 Value D Usleep Pr 10I 0 ExtProc('usleep') D Microsecs 10U 0 Value * Sleep for 30 seconds C CallP Sleep(0030) * Sleep for 30 seconds C CallP Usleep(0030000000) Note from Chris: It's working now. Thanks. My testing shows that 1000000 is valid for usleep (it does the delay). And values over 1000000 don't delay and the return value is zero, not -1. Note from Mel: My testing showed the same results as yours. That is, for values <= 1,000,000, usleep sleeps that many microseconds and returns 0. For values > 1,000,000, it sleeps 0 microseconds and returns 0. Although the documentation says it should return -1 and set errno to indicate why it failed, in my testing, both the return value and the errno were always 0. Also, the documentation says the return value is an unsigned integer, which would be impossible for it to return -1. The prototype in QSYSINC/H member UNISTD, defines the return code as int, which is signed. Finally, the documentation says the "usleep() function is included for its historical usage. The setitimer() function is preferred over this function." So, it appears that both the code and documentation contain errors and we should look at setitimer() instead. CmdLine Program Call with 2 num. parametersFrom a commandlinie a program can be called, as here with 2 num. parameters with the values of -421 og 98200: Call Pgm(LIBRARY/PROGRAM) Parm(X'421D' X'98200F') Packed Call Pgm(LIBRARY/PROGRAM) Parm(X'F4F2D1' X'F9F8F2F0F0') ZonedSearch for filename in pathBut, here's a slightly more efficient method. Rather than scanning the string several times to find all the slashes, it uses the C "strrchr" function which scans for a single character, starting at the end of the string... since it only scans the string once, it'll run slightly faster... H DFTACTGRP(*NO) ACTGRP(*NEW) BNDDIR('QC2LE') D basename PR 256A D path 256A const D my_file S 50A D my_path S 256A c eval my_path = '/NPR-SERVER-NT/SCANNING/' + c 'Common/Steve%20Maher/' + c 'EAR90881/AC9012F1240Y6.B.HPGL' c eval my_file = basename(my_path) c dsply my_file c eval *inlr = *on P basename B D basename PI 256A D path 256A const d strrchr PR * extproc('strrchr') d wholestr * value options(*string) d char 10I 0 value D SLASH c const(97) D p S * c eval p = strrchr(path: SLASH) c if p = *NULL c return *blanks c else c eval p = p + 1 c return %str(p) c endif P EConvert Decimal to Fractional NotationBob O. wrote: Does anyone have an example of converting a decimal number to it's fractional equivalent? For example: 15.3750 = 15-3/8 The decimal field to convert is a 10/4 field. Any help is appreciated. Hans replied: Hmmm, I was thinking of whipping up a procedure, so I typed "strseu qrpglesrc fract", and up popped a program already written! So, here it is. No promises though on completeness or correctness in all cases. And you'd probably want to add a parameter to specify some maximum for the denominator. And you'd probably want to change to 10I0 variables to 20I0 (and atoi() to atoll()). But it should get you going. BTW, this particular program outputs: > call fract DSPLY 123 57/125 DSPLY 123 DSPLY 123 17/50 DSPLY 123 1929/15625 DSPLY 123 4/5 DSPLY 123 1/8 H dftactgrp(*no) bnddir('QC2LE') D fraction pr 50a varying D numstr 50a varying value /free dsply (fraction('123.4560')); dsply (fraction('123.0000')); dsply (fraction('123.34')); dsply (fraction('123.123456')); dsply (fraction('123.8')); dsply (fraction('123.125')); *inlr = *on; /end-free //-------------------------------------------------------------- // Procedure: fraction //-------------------------------------------------------------- // Convert number string from decimal to fractional form. // // Parameters: // I: numstr -- string representing decimal numeric value // // Returns: // String of number in reduced fractional form. //-------------------------------------------------------------- P fraction b D fraction pi 50a varying D numstr 50a varying value D atoi pr 10i 0 extproc('atoi') D str * value options(*string) D int s 10i 0 D dec s 10i 0 inz(0) D decpos s 10i 0 D numerator s 10i 0 D denominator s 10i 0 D factor s 10i 0 /free // slough trailing blanks and zeros in number string dow %subst(numstr:%len(numstr):1) = ' ' or %subst(numstr:%len(numstr):1) = '0'; %len(numstr) = %len(numstr) - 1; enddo; // find decimal point decpos = %scan('.':numstr); // return now if we don't have decimal digits if decpos = 0; return numstr; elseif decpos = %len(numstr); return %subst(numstr:1:decpos-1); endif; // find digits to the left and right of the decimal point int = atoi (%subst(numstr:1:decpos-1)); dec = atoi (%subst(numstr:decpos+1)); // determine numerator and denominator numerator = dec; denominator = %inth(10**(%len(numstr)-decpos)); // reduce fraction to smallest possible numerator/denominator for factor = 2 to %div(denominator:2); dow %rem(numerator:factor) = 0 and %rem(denominator:factor) = 0; numerator = %div(numerator:factor); denominator = %div(denominator:factor); enddo; endfor; // return fractional string return %char(int) + ' ' + %char(numerator) + '/' + %char(denominator); /end-free P fraction eThis is out of my "Everything You Always Wanted to know about System Values (but were afraid to ask)" pitch from COMMON.|-----------------------------+------+--------| | National Language Version | NLV | QCCSID | |-----------------------------+------+--------| | Afrikaans (South Africa) | n/a | 00037 | |-----------------------------+------+--------| | Albanian (Albania) | 2995 | 00500 | |-----------------------------+------+--------| | Arabic | 2954 | 00420 | |-----------------------------+------+--------| | Australian English | | | | (Australia) | n/a | 00037 | |-----------------------------+------+--------| | Belgian Dutch MNCS | 2963 | 00500 | |-----------------------------+------+--------| | Belgian English | 2909 | 00500 | |-----------------------------+------+--------| | Belgian French MNCS | 2966 | 00500 | |-----------------------------+------+--------| | Brazilian Portuguese | 2980 | 00037 | |-----------------------------+------+--------| | Bulgarian (Bulgaria) | 2974 | 01025 | |-----------------------------+------+--------| | Byelorussia (Belarus) | n/a | 01025 | |-----------------------------+------+--------| | Canadian French MNCS | 2981 | 00500 | |-----------------------------+------+--------| | Croatian | 2912 | 00870 | |-----------------------------+------+--------| | Czech | 2975 | 00870 | |-----------------------------+------+--------| | Danish | 2926 | 00277 | |-----------------------------+------+--------| | Dutch Netherlands | 2923 | 00037 | |-----------------------------+------+--------| | English Uppercase | 2950 | 00037 | |-----------------------------+------+--------| | English Uppercase and | | | | Lowercase | 2924 | 00037 | |-----------------------------+------+--------| | English Uppercase DBCS | 2938 | 65535 | |-----------------------------+------+--------| | English Uppercase and | | | | Lowercase DBCS | 2984 | 65535 | |-----------------------------+------+--------| | Estonian | 2902 | 01122 | |-----------------------------+------+--------| | Farsi | 2998 | 01097 | |-----------------------------+------+--------| | Finnish | 2925 | 00278 | |-----------------------------+------+--------| | French | 2928 | 00297 | |-----------------------------+------+--------| | French MNCS | 2940 | 00500 | |-----------------------------+------+--------| | German | 2929 | 00273 | |-----------------------------+------+--------| | German MNCS | 2939 | 00500 | |-----------------------------+------+--------| | Greek | 2957 | 00875 | |-----------------------------+------+--------| | Hebrew | 2961 | 00424 | |-----------------------------+------+--------| | Hungarian | 2976 | 00870 | |-----------------------------+------+--------| | Icelandic | 2958 | 00871 | |-----------------------------+------+--------| | Irish Gaelic (Ireland) | n/a | 00285 | |-----------------------------+------+--------| | Italian | 2932 | 00280 | |-----------------------------+------+--------| | Italian MNCS | 2942 | 00500 | |-----------------------------+------+--------| | Japanese (Katakana) DBCS | 2962 | 05026 | |-----------------------------+------+--------| | Korean DBCS | 2986 | 00933 | |-----------------------------+------+--------| | Laotian | 2906 | 01132 | |-----------------------------+------+--------| | Latvian | 2904 | 01122 | |-----------------------------+------+--------| | Lithuanian | 2903 | 01122 | |-----------------------------+------+--------| | Macedonian | 2913 | 01025 | |-----------------------------+------+--------| | Norwegian | 2933 | 00277 | |-----------------------------+------+--------| | Polish | 2978 | 00870 | |-----------------------------+------+--------| | Portuguese | 2922 | 00037 | |-----------------------------+------+--------| | Portuguese MNCS | 2996 | 00500 | |-----------------------------+------+--------| | Romanian (Romania) | 2992 | 00870 | |-----------------------------+------+--------| | Russian | 2979 | 01025 | |-----------------------------+------+--------| | Serbian Cyrillic (Serbia) | 2914 | 01025 | |-----------------------------+------+--------| | Serbian Latin (Serbia) | n/a | 00870 | |-----------------------------+------+--------| | Simplified Chinese DBCS | | | | (PRC) | 2989 | 00935 | |-----------------------------+------+--------| | Slovakian | 2994 | 00870 | |-----------------------------+------+--------| | Slovenian | 2911 | 00870 | |-----------------------------+------+--------| | Spanish | 2931 | 00284 | |-----------------------------+------+--------| | Swedish | 2937 | 00278 | |-----------------------------+------+--------| | Thai | 2972 | 09030 | |-----------------------------+------+--------| | Traditional Chinese DBCS | | | | (ROC) | 2987 | 00937 | |-----------------------------+------+--------| | Turkish | 2956 | 01026 | |-----------------------------+------+--------| | UK English (United Kingdom) | n/a | 00285 | |-----------------------------+------+--------| | Vietnamese | 2905 | 01130 | |-----------------------------+------+--------|PGM DCL VAR(&CLOCKSTS) TYPE(*CHAR) LEN(10) TOP: RTVUSRPRF USRPRF(user) STATUS(&CLOCKSTS) /* retrieve 'user' profile */ /* Do Loop */ IF COND(&CLOCKSTS = '*DISABLED') THEN(DO) /* check 'user' profile status */ CHGUSRPRF USRPRF(CLOCK) STATUS(*ENABLED) /* Change to enabled */ CHGVAR VAR(&CLOCKSTS) VALUE(' ') /* reset variable - &clocksts */ ENDDO /* End Do Loop */ DLYJOB DLY(300) /* wait 5 minutes */ GOTO CMDLBL(TOP) /* recheck clock status */ ENDPGM
No comments:
Post a Comment