****************************************************************** * CardDemo - Transaction View *********************************************************************** * 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 ****************************************************************** COTRN01 DFHMSD CTRL=(ALARM,FREEKB), - EXTATT=YES, - LANG=COBOL, - MODE=INOUT, - STORAGE=AUTO, - TIOAPFX=YES, - TYPE=&&SYSPARM COTRN1A 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=16, - POS=(4,30), - INITIAL='View Transaction' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=14, - POS=(6,6), - INITIAL='Enter Tran ID:' TRNIDIN DFHMDF ATTRB=(FSET,IC,NORM,UNPROT), - COLOR=GREEN, - HILIGHT=UNDERLINE, - LENGTH=16, - POS=(6,21), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(6,38) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=NEUTRAL, - LENGTH=70, - POS=(8,6), - INITIAL='------------------------------------------------ -----------------------' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=15, - POS=(10,6), - INITIAL='Transaction ID:' TRNID DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=16, - POS=(10,22), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - LENGTH=0, - POS=(10,39) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=12, - POS=(10,45), - INITIAL='Card Number:' CARDNUM DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=16, - POS=(10,58), - INITIAL=' ' DFHMDF ATTRB=(ASKIP,NORM), - COLOR=GREEN, - LENGTH=0, - POS=(10,75) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=8, - POS=(12,6), - INITIAL='Type CD:' TTYPCD DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=2, - POS=(12,15), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(12,18) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=12, - POS=(12,23), - INITIAL='Category CD:' TCATCD DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=4, - POS=(12,36), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(12,41) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=7, - POS=(12,46), - INITIAL='Source:' TRNSRC DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=10, - POS=(12,54), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(12,65) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=12, - POS=(14,6), - INITIAL='Description:' TDESC DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=60, - POS=(14,19), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(14,80) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=7, - POS=(16,6), - INITIAL='Amount:' TRNAMT DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=12, - POS=(16,14), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(16,27) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=10, - POS=(16,31), - INITIAL='Orig Date:' TORIGDT DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=10, - POS=(16,42), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(16,53) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=10, - POS=(16,57), - INITIAL='Proc Date:' TPROCDT DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=10, - POS=(16,68), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(16,79) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=12, - POS=(18,6), - INITIAL='Merchant ID:' MID DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=9, - POS=(18,19), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(18,29) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=14, - POS=(18,33), - INITIAL='Merchant Name:' MNAME DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=30, - POS=(18,48), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(18,79) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=14, - POS=(20,6), - INITIAL='Merchant City:' MCITY DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=25, - POS=(20,21), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(20,47) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=TURQUOISE, - LENGTH=13, - POS=(20,53), - INITIAL='Merchant Zip:' MZIP DFHMDF ATTRB=(ASKIP,NORM), - COLOR=BLUE, - LENGTH=10, - POS=(20,67), - INITIAL=' ' DFHMDF LENGTH=0, - POS=(20,78) ERRMSG DFHMDF ATTRB=(ASKIP,BRT,FSET), - COLOR=RED, - LENGTH=78, - POS=(23,1) DFHMDF ATTRB=(ASKIP,NORM), - COLOR=YELLOW, - LENGTH=47, - POS=(24,1), - INITIAL='ENTER=Fetch F3=Back F4=Clear F5=Browse Tran.- ' DFHMSD TYPE=FINAL END * * Ver: CardDemo_v1.0-70-g193b394-123 Date: 2022-08-22 17:02:43 CDT *