IBM AS400 AllOther (736) 1.find most occurrences of a character. for exm: input:aaabbbbdddddyyy output: d 5 times how can i get that?
HCL,
14 20666i have recently moved to hyd. i would like to know which is the best institue to learn AS400. are there any in ameerpet? thanks.
4 7512In there is 100 no. of recordsin PF, if i delete all the records. Then what is the Size of the PF?
9 14122How can i change the below code in SQL to cobol/400? EXEC SQL SELECT COUNT(*) INTO : WS-COUNT FROM Db file WHERE Field 1 = : WS-VAR AND Field 2 = : WS-USERID END-EXEC * EVALUATE TRUE WHEN SQLCODE = +000 MOVE WS-COUNT TO Copybook field WHEN SQLCODE = +100 MOVE ZEROES TO Copybook field
2 8347How can i change the below code in SQL to cobol/400? EXEC SQL SELECT COUNT(*) INTO : WS-COUNT FROM Db file WHERE Field 1 = : WS-VAR AND Field 2 = : WS-USERID END-EXEC
HP,
2 91071.What is referential Integrity? 2.What is Foreign Key? 3.What is Transfer Control? 4.What is Free format?
3 8315OVRDBF FILE(xxx) TOFILE(libl/filename) share(*yes) In which scenario is share(*yes) used? could any one explain with an example?
IBM,
3 32180
Write a CL program which will run a batch job at 1 am every night
How to define data area in RPG program? In which scenario multi occurrence DS is use in AS400?
Explain the difference between section, paragraph and sentences?
how to develop some simple graphs (bar charts) using just html?
hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent.
Can we concatenate fields in physical file? If yes how can we do?
how can database records be read without lock ?
how many files, printer files you can describe in a rpg?
What is the difference between non-join logical files and join logical files?
writing an sql statement from selecting records from two files using single statement and nested select statement.
records can be read/update/deleted with which file?
Explain the difference between comp & comp-3?
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
What is diff between EVAL & MOVE?
can you display a empty subfile?