CIS 808 Creating a Library, and Page 1AS/400 Changing Your Profile to Define a New Current LibraryBodnovich create-current-libraryMAIN AS/400 Main Menu System: S1010045 Select one of the following: 1. User tasks ... 10. Information Assistant options 11. Client Access tasks 90. Sign off Selection or command ===> dsplibl F3=Exit F4=Prompt F9=Retrieve F12=Cancel F13=Information Assistant F23=Set initial menuYou should not have a current library at this time. System: S1010045 Type options, press Enter. 5=Display objects in library Opt Library Type Text QSYS SYS System Library QSYS2 SYS System Library for CPI's QHLPSYS SYS QUSRSYS SYS QGPL USR General Purpose Library QTEMP USR Bottom F3=Exit F12=Cancel F17=Top F18=BottomLets see if a library exists for our projects.MAIN AS/400 Main Menu System: S1010045 Select one of the following: 1. User tasks ... 11. Client Access tasks 90. Sign off Selection or command ===> wrkobj F3=Exit F4=Prompt F9=Retrieve F12=Cancel F13=Information Assistant F23=Set initial menuCIS 808 Creating a Library, and Page 2AS/400 Changing Your Profile to Define a New Current LibraryBodnovich create-current-libraryWork with Objects (WRKOBJ) Type choices, press Enter. Object . . . . . . . . . . . . . youracct Name, generic*, *ALL Library . . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB... Object type . . . . . . . . . . *ALL *ALL, *ALRTBL, *AUTL... Bottom F3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this display F24=More keys Parameter OBJ required.Work with Objects Type options, press Enter. 2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename 8=Display description 13=Change description Opt Object Type Library Attribute Text YOURACCT *USRPRF QSYS Work Station User YOURACCT *MSGQ QUSRSYS Work Station User Bottom Parameters for options 5, 7 and 13 or command ===> F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types F12=Cancel F16=Repeat position to F17=Position to F24=More keysNotice that there is no object type of *LIB for YOURACCT, you don't have a personal library. Lets create your own library.Work with Objects Type options, press Enter. 2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename 8=Display description 13=Change description Opt Object Type Library Attribute Text YOURACCT *USRPRF QSYS Work Station User YOURACCT *MSGQ QUSRSYS Work Station User Bottom Parameters for options 5, 7 and 13 or command ===> crtlib F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types F12=Cancel F16=Repeat position to F17=Position to F24=More keysCIS 808 Creating a Library, and Page 3AS/400 Changing Your Profile to Define a New Current LibraryBodnovich create-current-libraryCreate Library (CRTLIB) Type choices, press Enter. Library . . . . . . . . . . . . youracct Name Library type . . . . . . . . . . *PROD *PROD, *TEST Text 'description' . . . . . . . *BLANK F3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel F13=How to use this display F24=More keys Parameter LIB required.Work with Objects Type options, press Enter. 2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename 8=Display description 13=Change description Opt Object Type Library Attribute Text YOURACCT *USRPRF QSYS Work Station User YOURACCT *MSGQ QUSRSYS Work Station UserParameters for options 5, 7 and 13 or command ===> F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types F12=Cancel F16=Repeat position to F17=Position to F24=More keys Library YOURACCT created.Why doesn't the prior screen display the object just created? To update the screen, press F5 for refresh.Work with Objects Type options, press Enter. 2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename 8=Display description 13=Change description Opt Object Type Library Attribute Text YOURACCT *LIB QSYS PROD YOURACCT *USRPRF QSYS Work Station User YOURACCT *MSGQ QUSRSYS Work Station UserParameters for options 5, 7 and 13 or command ===> F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types F12=Cancel F16=Repeat position to F17=Position to F24=More keysCIS 808 Creating a Library, and Page 4AS/400 Changing Your Profile to Define a New Current LibraryBodnovich create-current-libraryWork with Objects Type options, press Enter. 2=Edit authority 3=Copy 4=Delete 5=Display authority 7=Rename 8=Display description 13=Change description Opt Object Type Library Attribute Text YOURACCT *LIB QSYS PROD YOURACCT *USRPRF QSYS Work Station User YOURACCT *MSGQ QUSRSYS Work Station UserParameters for options 5, 7 and 13 or command ===> go main F3=Exit F4=Prompt F5=Refresh F9=Retrieve F11=Display names and types F12=Cancel F16=Repeat position to F17=Position to F24=More keysNow lets change our profile so this library is set as our current library each time we logon.MAIN AS/400 Main Menu System: S1010045 Select one of the following: 1. User tasks 2. Office tasks ... 90. Sign off Selection or command ===> 1 F3=Exit F4=Prompt F9=Retrieve F12=Cancel F13=Information Assistant F23=Set initial menuCIS 808 Creating a Library, and Page 5AS/400