IBM AS/400 Bedienungsanleitung Seite 377

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 489
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 376
File Maintenance
********************************************************************
* SUBROUTINE - ADDSUB *
* PURPOSE - ADD NEW CUSTOMER TO FILE *
********************************************************************
C ADDSUB BEGSR
C CSTKEY CHAIN CMLREC1 50
C IF NOT *IN50
C MOVE *ON *IN51
C ELSE
C MOVE *OFF *IN51
C MOVE *BLANK NAME
C MOVE *BLANK ADDR1
C MOVE *BLANK ADDR2
C MOVE *BLANK CITY
C MOVE *BLANK STATE
C Z-ADD *ZERO ZIP
C EXFMT CSTBLD
C IF NOT *IN12
C WRITE CMLREC1
C ENDIF
C ENDIF
C ENDSR
********************************************************************
* SUBROUTINE - UPDSUB *
* PURPOSE - UPDATE CUSTOMER MASTER RECORD *
********************************************************************
C UPDSUB BEGSR
C MOVE *OFF *IN04
C CSTKEY CHAIN CMLREC1 52
C IF NOT *IN52
C EXFMT CSTINQ
C IF NOT *IN12
C UPDATE CUSMSTL1
C ELSE
C UNLOCK CUSMSTL1
C ENDIF
C ENDIF
C ENDSR
Figure 175 (Part 2 of 3). Source for module CUSMNT
Chapter 19. Example of an Interactive Application 353
Seitenansicht 376
1 2 ... 372 373 374 375 376 377 378 379 380 381 382 ... 488 489

Kommentare zu diesen Handbüchern

Keine Kommentare