****************************************************************** * CardDemo - List Users *********************************************************************** * Copyright Amazon.com, Inc. or its affiliates. * All Rights Reserved. * * Licensed under the Apache License, Version 2.0 (the "License"). * You may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, * either express or implied. See the License for the specific * language governing permissions and limitations under the License ****************************************************************** COUSR00 DFHMSD CTRL=(ALARM,FREEKB), - EXTATT=YES, - LANG=COBOL, - MODE=INOUT, - STORAGE=AUTO, - TIOAPFX=YES, - TYPE=&&SYSPARM COUSR0A DFHMDI COLUMN=1, - LINE=1, - SIZE=(24,80) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=5, - POS=(1,1), - INITIAL='Tran:' TRNNAME DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=4, - POS=(1,7) TITLE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=YELLOW, - LENGTH=40, - POS=(1,21) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=5, - POS=(1,65), - INITIAL='Date:' CURDATE DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(1,71), - INITIAL='mm/dd/yy' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=5, - POS=(2,1), - INITIAL='Prog:' PGMNAME DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(2,7) TITLE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=YELLOW, - LENGTH=40, - POS=(2,21) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=5, - POS=(2,65), - INITIAL='Time:' CURTIME DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(2,71), - INITIAL='hh:mm:ss' DFHMDF ATTRB=(ASKIP,BRT), - COLOR=NEUTRAL, - LENGTH=10, - POS=(4,35), - INITIAL='List Users' DFHMDF ATTRB=(ASKIP,BRT), - COLOR=TURQUOISE, - LENGTH=5, - POS=(4,65), - INITIAL='Page:' PAGENUM DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(4,71), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=15, - POS=(6,5), - INITIAL='Search User ID:' USRIDIN DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=8, - POS=(6,21) DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(6,30) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=3, - POS=(8,5), - INITIAL='Sel' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=8, - POS=(8,12), - INITIAL='User ID ' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=20, - POS=(8,24), - INITIAL=' First Name ' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=20, - POS=(8,48), - INITIAL=' Last Name ' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=4, - POS=(8,72), - INITIAL='Type' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=3, - POS=(9,5), - INITIAL='---' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=8, - POS=(9,12), - INITIAL='--------' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=20, - POS=(9,24), - INITIAL='--------------------' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=20, - POS=(9,48), - INITIAL='--------------------' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=4, - POS=(9,72), - INITIAL='----' SEL0001 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(10,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(10,8) USRID01 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(10,12), - INITIAL=' ' FNAME01 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(10,24), - INITIAL=' ' LNAME01 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(10,48), - INITIAL=' ' UTYPE01 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(10,73), - INITIAL=' ' SEL0002 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(11,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(11,8) USRID02 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(11,12), - INITIAL=' ' FNAME02 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(11,24), - INITIAL=' ' LNAME02 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(11,48), - INITIAL=' ' UTYPE02 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(11,73), - INITIAL=' ' SEL0003 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(12,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(12,8) USRID03 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(12,12), - INITIAL=' ' FNAME03 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(12,24), - INITIAL=' ' LNAME03 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(12,48), - INITIAL=' ' UTYPE03 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(12,73), - INITIAL=' ' SEL0004 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(13,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(13,8) USRID04 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(13,12), - INITIAL=' ' FNAME04 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(13,24), - INITIAL=' ' LNAME04 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(13,48), - INITIAL=' ' UTYPE04 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(13,73), - INITIAL=' ' SEL0005 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(14,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(14,8) USRID05 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(14,12), - INITIAL=' ' FNAME05 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(14,24), - INITIAL=' ' LNAME05 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(14,48), - INITIAL=' ' UTYPE05 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(14,73), - INITIAL=' ' SEL0006 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(15,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(15,8) USRID06 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(15,12), - INITIAL=' ' FNAME06 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(15,24), - INITIAL=' ' LNAME06 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(15,48), - INITIAL=' ' UTYPE06 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(15,73), - INITIAL=' ' SEL0007 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(16,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(16,8) USRID07 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(16,12), - INITIAL=' ' FNAME07 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(16,24), - INITIAL=' ' LNAME07 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(16,48), - INITIAL=' ' UTYPE07 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(16,73), - INITIAL=' ' SEL0008 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(17,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(17,8) USRID08 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(17,12), - INITIAL=' ' FNAME08 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(17,24), - INITIAL=' ' LNAME08 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(17,48), - INITIAL=' ' UTYPE08 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(17,73), - INITIAL=' ' SEL0009 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(18,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(18,8) USRID09 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(18,12), - INITIAL=' ' FNAME09 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(18,24), - INITIAL=' ' LNAME09 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(18,48), - INITIAL=' ' UTYPE09 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(18,73), - INITIAL=' ' SEL0010 DFHMDF ATTRB=(FSET,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=1, - POS=(19,6), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(19,8) USRID10 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=8, - POS=(19,12), - INITIAL=' ' FNAME10 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(19,24), - INITIAL=' ' LNAME10 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=20, - POS=(19,48), - INITIAL=' ' UTYPE10 DFHMDF ATTRB=(ASKIP,FSET,NORM), - COLOR=BLUE, - LENGTH=1, - POS=(19,73), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,BRT), - COLOR=NEUTRAL, - LENGTH=56, - POS=(21,12), - INITIAL='Type ''U'' to Update or ''D'' to Delete a User - from the list' ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), - COLOR=RED, - LENGTH=78, - POS=(23,1) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=YELLOW, - LENGTH=48, - POS=(24,1), - INITIAL='ENTER=Continue F3=Back F7=Backward F8=Forwar- d' DFHMSD TYPE=FINAL END * * Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:44 CDT *