Fun Series with iSeries - 05 Dec 2007 - Malar

1. How to create Help for AS/400 Commands
GENCMDDOC

2. How to update/add record to a file in CL
RUNSQLSTM

3. How to send message to all the active employees of a system
• GO ASSIST and choose *ALLACT
• QEZSNDMSG API
•
4. Command to view or capture all the screen output from an active 5250 session.
STRCPYSCN

5. How to copy records from one file to another file, by which the duplicate records in the file is updated and the new records are added.
CPYF FROMFILE(F1) TOFILE(F2) MBROPT(*UPDADD)

6. In SQL, how to order the selection list by a new order format
Select * from table order by locate(fld1, ‘B P A Z T’)

7. How to do Wild card selection in Open query
QRYSLT('FLDB *EQ %WLDCRD("ABC_*DEF*") ')

8. How to pass subfile records to a called program
OVRDSPF FILE(DSPA) SHARE(*YES)

9. How to select only 10rows from a file in SQL
SELECT * FROM TABLE FETCH FIRST 10 ROWS ONLY

10. How to change the attributes of the Display file field in run time.
Use P field and map it to the corresponding display file field. Assign the P Field with Hexa values. Each Hexa value represents a particular attribute.

11. How to perform case insensitive sorting in SQL
Change the sort sequence (SRTSEQ) to *LANGIDSHR

12. How to Display two subfiles at once in AS/400. Top and Bottom.
Write CTL1
EXFMT CTL2
Read CTL1

13. How to run commands from the SQL Session
CALL QCMD

14. How to make a SBMJOB to run at a specific date and time
SCDDATE and SCDTIME option in the SBMJOB Command

15. How to add colors to the source text
Map the Key board to the corresponding APL Codes.

Fun Series with iSeries - 3 Oct 2007 - Raju

Non-Technical

1. When was AS/400 introduced? ( June 1988)

2. What was the original code name for AS/400? (Silver Lake)


3. When the AS/400 was introduced in June 1988, how many processor models were there? (6 models)
a. 5
b. 6
c. 7
d. 8

4. What kind of performance did the AS/400 offer over the System/36? (5 times)
a. 5 times the performance
b. 7 times the performance
c. 8 times the performance
d. 10 times the performance

5. The 250,000th AS/400 was sold in 1994 to which company? (Coca-Cola)
a. Coca-Cola Co.
b. Pepsi-Cola Co.
c. Dr Pepper/Seven-Up, Inc.
d. National Beverage Corp.


6. Approximately how many applications were available for the AS/400 when the first one shipped in 1988? (2,500)

a. 1,500
b. 2,000
c. 2,500
d. 3,000

7. In what year was the AS/400 renamed the eServer iSeries? (2000)

a. 1998
b. 1999
c. 2000
d. 2001



8. Today, how many operating system environments can be run simultaneously from a single iSeries server? (4 - OS/400, Unix, Windows NT/2000, Linux)
a. 2
b. 3
c. 4
d. 5

9. What is latest system of AS/400 called? (System i)

10. What is the full form of TIMI? (Technology Independent Machine Interface)
Used on IBM System i platform. Allows application programs to take advantage of advances in hardware and software without recompilation. TIMI is a virtual instruction set; it is not the instruction set of the underlying CPU. User-mode programs contain both TIMI instructions and the machine instructions of the CPU, thus ensuring hardware independence.
The TIMI instructions are stored within the final program object, in addition to the executable machine instructions. This is how application objects compiled on one processor family (e.g. the original CISC AS/400 48-bit processors) could be moved to a new processor (e.g. PowerPC 64-bit) without re-compilation.


Technical

1. How can i tell if the program is running in batch or interactive? (QUSRJOBI API, the Job Type field (QUSJT04) will contain a B for batch or I for interactive)

2. What does %REM return? (Returns an Integer Remainder)

3. When a record is not found in READPE, what will be the value of the equal indicator? (Set ON)

4. When a record is not found in SETLL, what will be the value of High indicator?(Off)


5. How to access a specific member in SQL? (Create an ALIAS with SQL)


6. How can I retrieve an IP address of a session AS400? (QDCRDEVD API)

7. What is the command to create an activation group?(no command. Only we can control the creation of an activation group)

8. How to determine if a specific spool file exits? (QUSRSPLA)

9. There is no key field defined on the file can I use SETLL on this file? (Yes)

10. Max number Printer files that can be specified in an RPG IV program? (8)