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.